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CHAPTER ONE 
FLOATING POINT INTERPRETER 
1.1 Introduction : 

The GRI Floating Point Intrepreter is a complete system that allows the 
user to process data in floating point arithmetic. Floating point arithmetic, 
through the ise of multiple precision arithmetic and an exponential concept 
greatly extends the range of precision available to the user beyond that of 
fixed point arithmetic. It also, through utility routines, frees the user 
of the bookkeeping involved with scaling and unsealing of numbers that is 
necessary in a fixed point system. 

The GRI-909 has an instruction set which is known as machine language. 
The computer reads instruction words out of its memory and hardware is ac- 
tivated by the interpretation of each instruction word to cause the execution 
of that instruction. An interpretive software system fetches instructions 
which we shall call commands from the computer's memory and causes various 
subroutines to be entered as a result of the interpretation of the command. 
These commands fetched by the interpreter are also called psuedo-instructions 
because their format deviates from the machine's instruction format. The 
standard machine format instruction is 

WORD 1 SDA MOD DDA 

WORD 2 [ADDRESS] (if a memory reference in- 
struction) 

A pseudo-instruction or command such as the ones used in the GRI Floating 
Point Interpreter looks like this: 

WORD 1 OP CODE 

WORD 2 [ADDRESS] (if a memory reference pseudo-instruction) 

The interpreter actually simulates the process used by the computer's 
hardware to execute an instruction. The interpreter fetches the OP CODE words 
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and addresses, sets up arguments, flags, and performs a function on the ar- 
gument (s) as specified by the OP CODE of the pseudo-instruction. 

An interpretive approach to floating point arithmetic provides the user 
with a functionally oriented language that makes usage of floating point 
arithmetic much easier than if it were done through a series of subroutines 
called in machine language. The user references floating point numbers 
with a single address which is the first address of the two word floating 
point number. The interpreter takes care of the address bookkeeping neces- 
sary for two word argument handling. The interpreter also maintains a set 
of accumulators much the same as an arithmetic unit. Arguments and results 
are manipulated and left in these accumulators. The interpreter utilizes 
two such accumulators plus an index register. 

There are a set of commands in the interpretive system that are not 
floating point arithmetic commands. These are program control commands such 
as conditional jumps and index register manipulators. The index is simply 
used to keep track of the number of times command loops are executed. These 
commands, although they could be effected by use of basic machine language, 
are also provided in the interpretive mode because they can save the user time 
that would be spent entering and leaving the interpretive mode, and almost 
always save space in terms of the coding needed. 

When the user is ready to execute commands in his program, he first is- 
sues a machine language command that causes a jump to the interpreter to take 
place. The interpreter now assumes control and starts fetching commands which 
follow the jump that caused interpretive mode entry. If the user wishes to 
begin executing machine language instructions, he must issue an interpretive 
command that causes the interpreter to relinquish control. In essence, the 
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machine is running in two different modes; a machine language mode and a 
psuedo-language mode — in this case, a floating point language. 

The GRI interpretive system offers a novel error trap feature which 
may be invoked by the user to assist in tracking down places in the program 
where data values are causing error checks to occur. Errors such as dividing 
by 0, exceeding the capacity of the psuedo-accumulators in either the mantissa 
or exponent portions, etc., can all be caused by an unknown data base. All 
manipulations of data refer to manipulations in and out of the psuedo-accumulator 
called FAC. This accumulator behaves like the accumulator in an adding machine. 
It must be loaded to initialize it, stored to save it, and all arithmetic op- 
erations leave their results in the accumulator. Commands with two operands 

the contents of FAC, replacing the result in FAC. Commands with one operand 
are called unary commands and operate on FAC, leaving their results in FAC. 
Let us consider a simple example: 



r>^ *.^ T> — I. v2 j_ v^ 



JU $SFI ; enter floating mode 

FLDA X ; fetch X to FAC 

FMPY X ;x2 in FAC 

FSTA Tl ; store FAC in temporary loc 

FLDA Y ; fetch Y to FAC 

FMPY Y ;Y^ in FAC 

FADD Tl ;x2 + y2 in FAC 

FSQT ; M x2 + y2 in FAC 

FSTA R ;store result in R 

FEXT ;exit from floating mode 
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1.2 Basic Package, $SFI ; 

Floating point arithmetic capabilities are provided through an inter- 
pretive package. Associated with the package is an external^^ internal for- 
mat data conversion routine that can be easily tailored to the character set 
being processed. 

The interpretive package is invoked by a normal subroutine call. The 
call is followed by a string of commands that are established by use of 
equate statements during the assembly. The last command in the sequence 
causes a return to the calling program. Operations are performed using a 
pseudo accumulator maintained locally by the interpretive package. The 
package also contains a 16 bit pseudo index to allow loops within the command 
sequence. Without this feature, it would be necessary to exit and re-enter the 
interpretive package and perform loop counts outside the interpreter i Al- 
though the latter procedure is, in most instances, faster in terms of time 
taken to do the loop, it usually involves considerably more code and, there- 
fore, takes more space. 

As an example of a typical problem programmed in the interpreter 
language, we evaluate the polynomial 



Y = Aq + A^X + A2X2 + A3X3 + A4X^ 



^0 
which can iteravely be expressed as Y = (((A^X + A3)X + A2)X + A-^)X + Aq 

as follows ; 
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JU $SFI 

FLDX M4 

FLDA A4 

LOOP: FMPY X 

FADDD CONST 

FJIX LOOP 

FSTA Y 
FEXT 



; ENTER INTERPRETER 

;LOAD PSEUDO INDEX WITH -4 

jLOAD PSEUDO-ACCUMULATOR 

;MULTIPLY IT BY X 

;DEFERRED ADD A3 (THEN A2, Al, AO) 

; COUNT THE LOOP 

; STORE RESULT IN Y 

;EXIT THE INTERPRETER 



Y; 


WRD 


0,0 


CONST: 


WRD 


A3-1 


X: 


WRD 


XI, X2 


A4: 


WRD 


A41,A42 


A3: 


WRD 


A31,A32 




WRD 


A21,A22 




WRD 


A11,A12 




WRD 


A01,A02 


M4: 


WRD 


-4 



; STORAGE SPACE FOR ANSWER 

; DEFERRED ADDRESS (GETS CHANGED) 

;TWO WORD FLOATING POINT VALUE OF X 

;FLOATING A4 VALUE 

;A3 

;A2 

;A1 

;A0 

;ONE WORD INDEX COUNT VALUE 
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1.3 Floating Point Format ; 

Internal representation of a floating point number occupies two successive 
locations in memory and consists of a fixed point fraction (mantissa) with an 
associated exponent. The mantissa is in two's complement notation with a 
sign bit followed by 23 bits of significance. The binary point is assumed 
to be immediately to the right of the sign. The exponent, which is the power 
of two by which the mantissa is multiplied, has the range -2OO3 to +1778 
(2-128 ^Q 2"^^^^) . This exponent is represented in "excess 2OO3" notation by 
adding +200« to the true exponent. This requires a total of 8 bits and the 
range of the excess 200g notation is 000 to 3773, where 2OO3 represents 20. 
Thus, a floating point number looks like; 

15 14 0, 



Word 1 (16 bits) s Fraction - most significant 



P 87 0, 

Word 2 (16 bits) j Fraction 

lleast signifi cant! Exponent 

This format allows an accuracy of 6+ decimal digits and a range of +1.469368x10"-^^ 
to +1.701411x10+38. 

To obtain correct results, all floating point operations (except FLDA, 
FSTA and FNOR) require the floating point numbers being operated on to be 
normalized; that is, bit 14 of word 1 must be the most significant bit of 
the fraction (mantissa) . The only exception to this requirement is a floating 
point zero, which has no significant bits — a normalized floating point zero 
is two words of all zero (mantissa - 0, excess 2OO3 exponent = 0). 
Note: The mantissa of a normalized floating point number other than zero 
has an absolute value in the range 1/2^ mantissa | < 1. 



Examples: 
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Decimal 

1.0 
1.25 
-1.0 
-1.25 
100. 
-100. 
0.5 
0.25 
IT 
Tr/2 

-TT 



Internal Floating Point (octal) 



word 1 


word 2 


040000 


000201 


050000 


000201 


140000 


000201 


130000 


000201 


062000 


000207 


116000 


000207 


040000 


000200 


040000 


000177 


062207 


166602 


062207 


166601 


115570 


011602 



1.4 Internal Registers ; 

There are three pseudo^registers contained in the interpreter i) the 
pseudo-accumulator (FAC) , ii) a temporary pseudo-accumulator (FTM) , and 
iii) the pseudo-index register (FINDX) . 

i) FAC - The floating pseudo-accumulator. This consists of three 
locations in the interpreter and is used to contain the left-hand argument 
of a binary floating point command as well as the results of any floating 
point command. It is organized as follows: 

FACHI - contains high order mantissa and sign of value in FAC 
FACLO - contains low order mantissa of value in FAC 
FACXP - contains excess 2OO3 exponent of value in FAC 
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ii) FTM - temporary pseudo-accumulator. This consists of three lo- 
cations analogous to FAG. They are named FTMHI, FTMLO, and FTMXP. The 
temporary accumulator is used to hold an additional floating point value 
for those commands which require two floating point values in order to op- 
erate, e.g. a type II (binary) command (see 2.2.2). 

iii) FINDX - pseudo index. This consists of one location of the same 
name and holds the current value of the index. 

Note: FAGHI, FAGLO and FTMHI, FTMLO are treated as full 31 bit double 

precision quantities for the basic arithmetic operations add, sub- 
tract, multiply, and divide. 
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CHAPTER TWO 



BASIC COllMAtTDS 



2.1 Command Categories ; 



The commands are of the following categories 
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load & store 



; the command specifies the source or destina- 
tion of floating point data - the corresponding 
destination or source is the pseudo accumula- 
tor. 



II 



binary 
commands 



; the command specifies the source of the 
rightmost operand - the floating accumulator 
contains the leftmost operand. The result 
will be in the accumulator. 



Ill 



unary 
commands 



; the command merely specifies the function to 
be performed on the accumulator. The result 
will be in the accumulator. 



iv 



index 
commands 



conditionals 



VI 



exit 



; the command specifies the source or destina- 
tion of an index value - the corresponding 
destination or source is the pseudo index. 

; the command specifies an address to which con'- 
trol passes if the test defined by the command 
is true - the address must contain another 
floating point command. Tests may be per- 
formed on the floating accumulator, certain 
flags, and the index. 

; this command catises a return to the calling 
program. 



2-2 

FLOATING POINT MANUAL 
71-44-001 



The load & store (Type I) and binary (Type II) commands may 
specify deferred (indirect and auto-indexed) addressing mode. Deferred 
addressing in floating point commands operates exactly as in machine 
language . 

2 . 2 Command Descriptions ; 

2.2.1 TYPE I COMMANDS - LOAD & STORE COMMANDS 



LOAD FLOATING ACCUMULATOR (AC) 

mnemonic address code no. of words 
FLDA X 01 2 

The contents of the location specified by X and X + 1 are treated as 
a floating point number and are loaded into the floating point pseudo ac- 
cumulator. The floating point number in locations X and X + 1 is split into 
three parts i) X, which consists of the high order mantissa, goes into 
FACHI; ii) bits 8-15 of X + 1, which consists of the low order mantissa, 
goes into bits 8-15 of FACLO and bits 0-7 of FACLO are set to zero; and 
iii) bits 0-7 of X + 1, which consists of the excess 200^ exponent, goes 
into bits 0-7 of FACXP and bits 8-15 of FACXP is set to zero. 

DEFERRED LOAD FLOATING AC 

mnemonic address code no. of words 
FLDAD A 101 2 

The contents of location A is incremented by one, replaced in A, and 
the result is used as the effective address X; then the contents of A are 
incremented and replaced a second time forming the effective address X + 1. 
The contents of X and X + 1 are then treated as a floating point number and 
loaded into FAC as explained under FLDA. 
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STORE FLOATING AC 

mnemonic address code no. of words 
FSTA X 02 2 

The contents of FAC are rounded into bit 8 of FAGLO, bits 0-7 of FACLO 
are set to zero. Then FACHI, FACLO, and FACXP are packed into a floating 
point number and stored in X, and X + 1. Note that this operation alters 
FAC so that it agrees with the value stored in X, and X + 1. 

It is also possible for the rounding operation to cause exponent over- 
flow (excess 200g exponent exceeds +377o) . This can occur only if the 
number being rounded is very close to the largest possible positive float- 
ing point number. The value stored in this case will be X = 0777773, 

X + 1 = 177777o, and FXFLG will be set non-zero. A successful FSTA will set 
8 

FXFLG to zero. 

DEFERRED STORE FLOATING AC 

mnemonic address code no. of words 



FSTAD A 102 2 

The contents of A are incremented twice as explained under FLDAD, form- 
ing effective addresses X and X + 1 into which FAC is stored as explained 
under FSTA. 

2.2.2 TYPE II COMMANDS - BINARY COMMANDS 

All Type II commands depend on both FAC and the argument of the 
command to have normalized mantissas . If unnormalized numbers are 
used, the results are unpredictable. A FNOR instruction (see 2.2.3) is 
provided to normalize any quantity if it is necessary to do so. Also, 
if all inputs are normalized, the results in FAC will be normalized as 
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will the value retrieved from FAC by use of an FSTA instruction. 

Type II commands can cause exponent underflow or overflow if the 
number created in FAC by the command has an excess 200^ exponent out- 
side the range to +377g respectively. The occurrence of either 
condition is indicated by FXFLG being non-zero after the operation 
has been completed. It may be tested by use of the FJEV command. 
The successful completion of a Type II command will set FXFLG to zero. 

FLOATING ADD 

mnemonic address code no. of words 
FADD X 03 2 

The floating point number in locations X and X + 1 are added to 
the contents of FAC, and the result replaces FAC. 

DEFERRED FLOATING ADD 

mnemonic address code no. of words 
FADDD A 103 2 

The contents of A are incremented twice as explained under FLDAD, 
forming effective addresses X and X + 1, the contents of which are 
added to FAC, and the result replaces FAC. 

FLOATING SUBTRACT 

mnemonic address code no. of words 
FSUB X 04 2 

The floating point number in locations X and X + 1 are subtracted 
from the contents of FAC, and the result replaces FAC. 
DEFERRED FLOATING SUBTRACT 

mnemonic address code no. of words 

FSUBD A 104 2 
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Effective address is formed from A as in FADDD. 

FLOATING MULTIPLY 

mnemonic address code no. of words 
FMPY X 05 2 

FAG is multiplied by the floating point number in X and X + 1. 
The result replaces FAC. 
DEFERRED FLOATING MULTIPLY 

mnemonic address code no. of words 
FMPYD A 105 2 

Effective address is formed from A as in FADDD. 
FLOATING DIVIDE 

mnemonic address code no. of words 
FDIV X 06 2 

FAC is divided by the floating point number in X and X + 1. The 
result replaces FAC. Divide check will occur if X, X + 1 is zero or 
not normalized. This causes FAC to be set to the largest possible 
floating point number of the sign which would be the result of the 
divide if it could take place, and the divide check flag (FDFLG) will 
be non-zero. A successful divide sets FDFLG to zero. 

Note - if both FAC and X are 0, the result will be the largest 
possible positive floating point number in FAC with FDFLG set non-zero, 
DEFERRED FLOATING DIVIDE 

mnemonic address code no. of words 
FDIVD A 106 2 

Effective address is formed from A as in FADDD. 
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FLOATING ADD MAGNITUDE 

mnemonic address code no. of words 
FADM X 07 2 

The absolute magnitude of the floating point number in X and 
X + 1 is added to FAG. The result replaces FAG. 

DEFERRED FLOATING ADD MAGNITUDE 

mnemonic address code no. of words 
FADMD A 107 2 

Effective address is formed from A as in FADDD. 

FLOATING SUBTRACT MAGNITUDE 

mnemonic address code no. of words 



FSBM X 10 2 

The absolute magnitude of the floating point number in X and 
X + 1 is subtracted from FAG. The result replaces FAG. 

DEFERRED FLOATING SUBTRACT MAGNITUDE 

mnemonic address code no. of words 
FSBMD A 110 2 

Deferred subtract magnitude. Effective address is formed from 
A as in FADDD. 
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2.2.3 TYPE III COMMANDS - UNARY COMMANDS 

FLOATING ABSOLUTE VALUE 

mnemonic address code no. of words 
FABS none 14 1 

The absolute value of the FAC replaces the FAC, i.e. FAC } 
replaces FAC. 

FLOATING SQUARE 

mnemonic address code no. of words 
FASQ none 15 1 

The square of FAC is returned in FAC. This instruction requires 
that the mantissa of FAC be normalized prior to execution as in 
type II instructions (see 2.2.2). 

FLOATING NORMALIZE 

mnemonic address code no. of words 
FNOR none 16 1 

The contents of FAC are normalized and replace FAC. This in- 
struction can cause exponent overflow or underflow in which case FAC 
will contain the largest possible negative floating point number or 

all zeros respectively and FXFLG will be set non-zero. A successful 
normalize will set FXFLG to zero. 

FLOATING NEGATIVE VALUE 

mnemonic address code no. of words 

FNEG none 17 1 

The contents of FACHI and FACLO are twos complemented, i.e. -FAC 
replaces FAC. 
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2.2.4 TYPE IV COMMANDS - INDEX COMMANDS 

LOAD INDEX 

mnemonic address code no. of words 



FLDX I 27 2 

The pseudo-index is loaded with the 16 bit contents of location I. 

STORE INDEX 

mnemonic address code no. of words 
FSTX I 30 2 

The 16 bit pseudo-index is stored into location I. 

2.2.5 TYPE V COMMANDS - CONDITIONALS 

These commands allow the program to alter the path of control which the 
interpreter is following based on the results of certain tests. The lo- 
cation to which the interpreter is caused to transfer must contain a valid 
floating point command. If the interpreter should encounter an invalid com- 
mand at any time during execution, it will come to a halt with the address 
of the illegal command displayed in the MB register on the front panel. This 
is the only halt in the program. 

JUMP UNCONDITIONAL 

mnemonic address code no. of words 
FJMP C 20 2 

Unconditional jump. The interpreter will take the next command 
from location C and continue from there. 
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JUMP IF AC POSITIVE 

mnemonic address code no. of words 
FJAP C 21 2 

If FAC is positive or zero, the interpreter takes the next 
command from location C. Otherwise, the interpreter continues with 
the command following the FJAP command. 

JUMP IF AG ZERO 

mnemonic address code no. of words 
FJAZ G 22 2 

If FAC is 0, the interpreter will take the next command from 
location C. Otherwise, the interpreter continues with the command 
following the FJAZ command. Note; The interpreter tests only FACHI 
for zero. FAC may be non-zero and FACHI = only if the number in 
FAC is not normalized. This condition cannot be created by the inter- 
preter unless the user has introduced unnormallzed numbers into his 
calculations (see 2.2.2). 

JUMP IF AG NEGATIVE 

mnemonic address code no. of words 
FJAN G 23 2 

If FAC is negative, the interpreter will take the next command 
from location C. Otherwise, the interpreter continues with the com- 
mand following the FJAN command. 
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JUMP IF EXPONENT OVERFLOW (OR UNDERFLOW) 

mnemonic address code no. of words 
FJEV C 24 2 

If FXFLG is non-zero, the interpreter will take the next command 
from location C and set FXFLG to zero. Otherwise, the interpreter will 
continue with the command following the FJEV command. The FJEV command 
is used to detect the occurrence of either exponent overflow or exponent 
underflow resulting from the execution of the last preceding Type II command 
or FSTA, FNOR, or FASQ. If desired, the type of overflow may be detected 
by an FJAZ command at location C, since exponent underflow returns FAC=0, 
and exponent overflow returns the largest number (+ or -) in FAC. 
JUMP IF DIVIDE CHECK 

mnemonic address code no. of words 

FJDC C 25 2 

If FDFLG is non-zero, the interpreter will take the next command 
from location C and set FDFLG to zero. Otherwise, the interpreter con- 
tinues with the command following the FJDC command. The FJDC command is 
used to detect the occurrence of divide check during execution of the last 
previous FDIV or FDIVD command. If desired, one may test whether the con- 
dition occurred because the divisor was or not normalized by checking the 
divisor with an FLDA and FJAZ instruction at location C. 
JUMP IF INCREMENTED INDEX NOT ZERO 

mnemonic address code no. of words 

FJIX C 26 2 

The pseudo-index (FINDX) is incremented by one, and if the result is 
non-zero, the interpreter takes the next command from location C. 
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If the result is 0, the interpreter continues with the command follow- 
ing the FJIX instruction. The pseudo-index will contain the incremented 
value whether or not the jump occurs. 

2.2.6 TYPE VI COMMAND - EXIT 

EXIT FLOATING INTERPRETER 

mnemonic address code no. of words 
FEXT none 1 

This command causes the interpreter to return control to the 

user at the location immediately following the FEXT. None of the 

internal registers or flags are altered by either the FEXT or entering 
the package. The AO is returned in the ADD state. 



3-1 

FLOATING POINT MANUAL 
71-44-001 



CHAPTER THREE 
DATA CONVERSION 

3.1 Introduction ; 

Two conversion routines are provided; one to convert from floating point 
to character, the other to convert from character to floating point. Both 
conversion routines are core to core operations rather than being bound to a 
particular I/O device (that is, characters are fetched from and stored into 
memory). For added flexibility, all characters are referenced with an index 
into a character set table called @FCST, which initially contains 8-bit 
ASCII codes. Changing the character set for a specific I/O device can easily 
be accomplished by changing the character codes in ^FCST^ 

External floating point format is expressed as a mantissa or fraction 

portion and a power of ten by which the mantissa is multiplied. This is 

written as -hi.nnnnnn E +tin, where n is a decimal digit. Tne number to the 
mantissa exponent 

right of the E is the power of ten by which the mantissa is multiplied. Thus, 

-3.527614E-H)3 is -3.527614*103 or -3527.614. The floating point number 

+172.100123E-02 is +172.100123*10~2 or +1.72100123. 
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3.2 Floating Point to Character Conversion ; 



NAME: 



SUBROUTINES CALLED: 



@SFC 
$SFI, (apxc 



ALTERED REGISTERS & FLAGS 



FAC, FTM, FXFLG, FDFLG 



CALLING SEQUENCE: 



ARGUMENTS : 



FUNCTION: 



JU (aSFC 
WRD el-1 
WRD e2 
WRD e3 
return 

el is the address of the location into 
which the first output character is 
to be stored. 

e2 is the address of the two word float- 
ing point argument. The argument need 
not be normalized but the magnitude must 
be zero or in the range ([2"-'-^^, 2'^-'-^^) 
(in decimal this is 1.469367E-39 tp 
1.701411E+38) 

e3 is the address of the error return. 

Converts a signed two word floating 
point argument to a string of thirteen 
characters, stored one character per 
word, right justified starting in lo- 
cation el. The character string is of 
the format 

• * ? n.nnnnnn Ej+|nn 

where n is character representation of a 
decimal digit. 
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ERRORS : 



NOTE: 



LENGTH: 



If normalization of the floating point 
argument caused either exponent over- 
flow or underflow, an * is stored rather 
than a leading + or - sign, and when 
conversion is completed, control returns 
to e3. The * can be considered a - sign. 
An argument resulting in overflow con- 
verts to * 1.701411 E + 38. An argu- 
ment resulting in underflow converts to 
*0. 000000 E + 00. 

The magnitude of the three smallest nor- 
malized non-zero floating point numbers 
are converted to one of the character 
strings +1.469 36 7E- 39 or +1.469368E-39. 
These two character strings cannot be 
converted back to a floating point number. 
The smallest character string which can 
successfully be converted to a floating 
point number is +l«^69369E-39. Therefore, 
if the user converts any one of these 
three numbers to a string of characters, 
he should be aware that he cannot suc- 
cessfully convert the string back to 
a floating point number. 

306g (198io^ locations 



Description of Algorithm: 

The sign of the floating point argument is stored, the argument is then 
normalized, and the absolute value is taken and used for conversion. If nor- 
malization caused either exponent overflow or underflow, the error return is 
taken when conversion is completed and an asterisk (which may be considered 
as a '-'), is stored rather than a leading sign. 



3-4 

FLOATING POINT MANUAL 
71-44-001 



Since the output character string is of the form '+\n.nnnnnnEjTin, the 
floating point argument is first manipulated to make it greater than or 
equal to one and less than ten. (If the floating point argument is exactly 
zero, this portion of the algorithm is bypassed.) Making 1^ floating 
point argument < 10 is accomplished by first checking if it is > 1. If it 
is not, it is multiplied by the largest possible power of ten (10^°) and, 
if necessary, it is multiplied once again by ten to force it>.l. The ar- 
gument is then checked for^ 10. If it is not<ClO, it is forced so by 
dividing by the largest power of ten, which is less than the argument. The 
powers of ten used in multiplying and dividing the argument to force its 
value to be between one and ten are used to form the exponent portion of 
the character string. 

With the floating point argument (stored in FAC) now>l and <^ 10, the 
mantissa portion of the character string can be formed. FACHI, FACLO is 
treated as a double precision mixed number with FACXP showing the position 
of the binary point. FACHI, FACLO is left shifted (with overflow bits shifted 
into a 3rd word) until the binary point immediately precedes bit 15 of FACHI. 
The overflow word is then converted to character and stored as the first digit 
of the mantissa, immediately followed by a decimal point. The fraction por- 
tion of the mantissa is formed by successively multiplying FACHI, FACLO by 
10, pj and storing the most significant word of the 3 word product. The ex- 
ponent is then converted and stored, preceded by an E and either a + or - sign, 



3.3 Character to Floating Point : 
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NAME: 



(ascF 



SUBROUTINES CALLED: 



ALTERED REGISTERS & FLAGS 



CALLING SEQUENCE: 



ARGUMENTS ; 




.] 



$SFI, (3FXC 

FAC, FT.M, FXFLG, FDFLG 

JU @SGF 
WRD el-1 
WRD e2 
WRD e3 
return 

§1 is the address of the first character 
in the string to be converted. The char- 
acter string should be stored one charac- 
ter per word right justified in the format 



\ 
E [+]/ n[n] 

J 



[^...] [ i ] 



The notational conventions are: 

1. n is a decimal digit 

2. £ii is a space 

3. i is a delimiter 

4. braces [] contain optional items 
which may or may not be included. 

5. brackets | ( contain alternate items 
where one and only one of the items 
must be included. 

6. ellipses ... denote permissible 
repetition of the preceding item. 

The string is treated as follows: 

1. If there is no sign, it is treated as +. 
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FUNCTION; 



2. If the leading sign is * or -, it 
is treated as -. 

3. If there is no decimal point, it is 
assumed to follow the last mantissa 
digit. 

4. Characters are processed up to and 
including the first ^ , or ISq^q char- 
acters have been processed. 

e2 is the address where the two word 
floating point answer is stored. 

e3 is the address of the error return. 

Converts a string of decimal characters 
to a two word normalized floating point 
answer. The two word normalized float- 
ing point answer is returned in registers 
AX (MSH), AY (LSH) , and is stored in lo- 
cation e2 (MSH) and e2+l (LSH) . The AO 
is returned in the ADD state. 



ERRORS: 



A scan error occurs if the character 
string is illegally formed. Location 
@SCF+3 is set to zero and control im- 
mediately returns to e3. 

An overflow error occurs if the charac- 
ter string contains more than 10 ^q man- 
tissa digits (discounting leading zeros) 
or if the magnitude of the number is out- 
side the range 1. 469 369 E- 39 to 1.701411E+38 
Location (3SCF+3 is set to one and control 
immediately returns to e3. 

Whenever control returns to e3, the AO 
is in the ADD state. 
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NOTES: See NOTES \mder @SFC. 

LENGTH: 40 6 3 (26 2^0 ) locations 

Description of Algorithm 

The mantissa portion of the character string is converted to a 
double precision integer by multiplying the answer by 10-^q and adding 
in the latest digit. This double precision mantissa is then converted 
to a normalized floating point number. A count of the number of digits 
to the right of the decimal point is kept and, after the exponent portion 
of the character string has been converted, this digit count is subtracted 
from it to obtain the final exponent. The magnitude of the final exponent 
is used as an index into the positive floating point powers of ten table 
(see 3.6). The floating point number obtained from the mantissa portion 
of the character string is then multiplied (if the final exponent was 
positive) or divided (if the final exponent was negative) by this power 
of ten to form the final floating point answer. If there was a leading 
minus sign or asterisk, the floating point answer is two's complemented 
before return. 

3.4 Common Tables & Routines ; 

The conversion routines (§SFC and @SCF reference a common routine called 
@FXC, which has four entry points. @FXC occupies a total of 213g (139 j^o) 
locations. Since (§FXC is common to both @SFC and @SCF, it need appear only 
once if the conversion routines are used together. In the discussion of @FXC 
which follows, each of the four entry points is treated separately for the 
sake of clarity. 
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3.5 Character Set Table : 

NAME: 
FUNCTION: 



NOTES : 



(SFCST 

Common external character set table for 
floating point data conversion routines. 
The table is ordered as follows: 



Location 

(SFCST 

@FCST+1 

(aFCST+2 

@FCST+3 

@FCST+4 

@FCST+5 

@FCST+6 

@FCST+7 

(aFCST+10 



Contents 

code for zero 
code for nine 
code for + 
code for - 
code for * 
code for . 
code for E 
code for space 
code for delimiter 



The standard table is in full 8-bit ASCII. 
The delimiter character at @FCST+103 is a 
carriage return and may be changed if 
desired. 

The entire table may be replaced with a 
different character set provided that the 
numeric codes in the new set are sequential 
and the code for zero (0) is less than the 
code for nine. No code may occupy more 
than 15 bits. 



LENGTH; 



12g (lOio) locations 



3.6 Floating Point Powers of Ten Table ; 
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NAME: 
FUNCTION: 



@FPT: 



(appT 

Common floating point positive powers of 
lO-j^Q table for floating point data con- 
version routines. Each floating point 
power occupies two locations in the table. 
The table is organized as follows: 

WRD 45473,46777 constant for 10 ^^ 
V3RD 74136,160773 constant for 1037 



NOTE: 
LENGTH: 



WRD 



40000,201 



constant for lOO 



(aFPT is located at (aFCST+123 
116g (78^0) locations 



3.7 Left Shift FAC: 
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NAME: 



(aLSHF 



SUBROUTINES CALLED: 



none 



ALTERED REGISTERS & FLAGS 



none 



CALLING SEQUENCE: 



Load AX with the negative shift count 

JU @LSHF 

return 



ARGUMENTS : 



FUNCTION: 



Register AX contains minus the number of 
places to left shift FACHI, FACLO 

Performs double precision left shift of 
FACHI, FACLO. On return, the shifted 
result is in AX (MSH) , AY (LSH) . Any 
carry out of MSH is found in location 
@DIG+1 . 



ERRORS : 
NOTES : 
LENGTH: 



none detected 

(^LSHF=(aFCST + 3O63 

(aDIG+l=@LSHF +148 
23g (19-,q) locations 



3.8 Multiply FAC by Ten : 
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NAME: 

SUBROUTINES CALLED: 

ALTERED REGISTERS & FLAGS 

CALLING SEQUENCE; 

ARGUMENTS : 

FUNCTION: 



ERRORS: 

NOTES ; 
LENGTH: 



(aiOX 

@LSHF 

FAC 

JU (aiOX 

n/a 

Performs unsigned multiplication of 
FACHI, FACLO by IOj^q- '^^ ™ost sig- 
nificant word of the three word product 
is returned in AY, The second and 
third words of the product are found 
in FACHI, FACLO respectively. 

n/a 

@iOX=@FCST+650 

40g (32j^Q ) locations 
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CHAPTER FOUR 
EXTENDED COMMANDS 

4.1 Introduction : 

In addition to the basic floating point interpreter, a set of mathematical 
functions is supplied which can be invoked by a command in the same line with 
the basic commands . These functions also call the floating interpreter and 
since the interpreter has already been entered at this point, a push-down 
scheme is supplied to allow recursive calls such as this. The push-down list 
will accomodate recursive calls up to seven levels. 

It should be noted that all pseudo registers - the floating accumulator, 
the temporary accumulator and index ^ and the flags FDFLG and FXFLG are 
common to all levels of the recursion. In other words, if an extended func- 
tion which calls the interpreter recursively is invoked by a command, these 
registers and/ or flags may be altered. Information detailing such factors 
is supplied in the documentation accompanying the individual package. 

The push'-down scheme and command code structure is tailored so that the 
user may easily add his own functions. The procedure for doing this is 
described in section 5,3. 

The mathematical subroutines which are supplied with the extended package 
are SINE, COSINE, ARC TANGENT, LOG^, EXPONENTIAL, and SQUARE ROOT. The com- 
mands associated with these are FSIN, FCOS, FATN, FLNE, FEXP, and FSQT (codes 
31, 32, 33, 34, 35, and 36) respectively. They each perform the desired 
function on the contents of the floating pseudo-accumulator and return the 
results in the same register. Errors which can result, such as attempting 
to take the square root or log of a negative number, are flagged by the 
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routines in internal locations not accessible in interpretive mode, i.e. 
cannot be tested with an interpreter command. An error trap routine is 
available which will handle these and other errors when they occur (see 
Appendix E) . 

In the writeups that follow, FAG is the floating pseudo-accumulator, 
FTM is the temporary floating pseudo-accumulator, FDFLG is the divide check 
flag, FXFLG is the exponent overflow flag, and FINDX is the pseudo-index. 



4.2 Sine, Cosine; 
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COMMAND: 



FSIN (code 31), FCOS (code 32) 



FUNCTION: 



ERRORS : 



a. FSIN - calculates the SINE of the 
contents of FAC which is assumed to be 
a radian argument and replaces FAC 
with the result. 

b. FCOS - calculates the COSINE of 
the contents of FAC which is assumed to 
be a radian argument and replaces FAC 
with the result. 

none 



ALTERED REGISTERS & FLAGS 



METHOD: 



FAC, FTM, FXFLG 

For FCOS, the absolute value of FAC is 
subtracted from T72 (=1.570796) and the 
SINE of the result is taken. 

For FSIN, the argument (FAC) is first 
multiplied by 2/77 to convert it into 
units of a quarter circle, and the result 
is checked for its absolute magnitude 
being less than one. If so, it is a 
first quadrant quantity and the procedure 
continues with the series calculation 
described later. If the magnitude of the 
result is greater than or equal to one, 
its sign is saved, it is forced positive, 
and the integer portion is shifted out - 
leaving a positive fraction (referred to 
as Y in the following) . The last two 
bits of the integer portion and the sign 
are used to determine Which quadrant the 
original argument was in and the qiiantity 
Y is altered as follows: 
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sign 



last two bits 



quadrant 



+ 


00 


Y -^Y 


I 


+ 


01 


1-Y -*Y 


II 


+ 


10 


-Y -> Y 


III 


+ 


11 


-1 + Y -► Y 


IV 


- 


00 


-Y -> Y 


IV 


- 


01 


-1 + Y ->Y 


III 


- 


10 


Yr> Y 


II 


_ 


11 


1-Y -►Y 


I 



This new value of Y is then treated as a fraction and is normalized. 



.neoysnev 
)r sin \ 2y. 



The series used to calculate the sine is basically a 5 term Chebyshev 
economized polynomial approximation of a 6 term McLaurin series foi 
The coefficients are further "adapted" to allow the series to be calculated 
with one less multiplication than would be the case for a standard polynomial 
evaluation procedure. This results in the sine being calculated as follows: 

sin (^) = ((Z - Y + A2) * Z + A3) * A^ * Y 

where 

Z = (Y + Aq) * Y + Aj 
and 

Aq = -14.93104811 

Ai = -39.74079011 

A2 = +367.8139482 

A3 = +23410.00773 

A4 = +0.0001514440767 

Accuracy is 6 + significant decimal digits for arguments in the first 
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quadrant ( | FACJ^y). Accuracy loss is about two thirds of a decimal 
digit for each complete rotation, i.e. if ZfT n ^|fAC | ^ 2]T(n+l) , the ac- 



2 

curacy is about 6 - -rn decimal digits . 



4.3 Arc Tangent ; 
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COMMAND: 



FATN (code 33) 



FUNCTION: 



The arc tangent of the contents of FAC 

replace FAC. The result is in radians 

TT IT 

and lies in the range ( - — , + y) • 



ERRORS : 



none 



ALTERED REGISTERS & FLAGS 



FAC, FTM, FDFLG, FXFLG 



METHOD: 



The argument (FAC) is checked for its 
absolute magnitude being greater than or 
eqxial to one. If so, a flag is set and 
the reciprocal of the argument is taken 
and replaces FAC. 

The arc tangent of the quantity in FAC 
is then approximated by 

(An + A-j X^ A^X^) 
Z = ATAN X = X • (Bq + BiX^ B2X'^) 

where X is the argument and 

Aq = 0.6402481953 

A^ = 0.4229908144 

A2 = 0.0264694361 

Bq = 0.6402487022 

B^ = 0.6363779373 

B2 = 0.1108328778 

If the flag was set by the initial check, 
the value Z is checked for + or -. If Z 
is +,1^ - zj replaces Z. If Z is -, 

(- ■^ + Z) replaces Z. (This is effected 

TT 

by subtracting Z from + or - -^ depending 

on the sign of Z.) 

If the flag was not set by the initial 
check, the value Z is not altered. Accur- 
acy is 6+ significant decimal digits for all 
arguments . 



4.4 Natural Log ; 
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COMMAND: 
FUNCTION: 

ERRORS: 



ALTERED REGISTERS & FLAGS: 



FLNE (code 34) 

The natural log of the contents of FAC 
replace FAC. 

If FAC is negative, a flag (FNLNF) is set, 
FAC is forced positive, and the natural 
log taken. 

FAC, FTM, FXFLG, FNLNF (FPLNE+4) 



METHOD: 



The quantity in FAC is 

Z = X • 2^ where .5^X<1 and I is an 
integer. 

In Z = In [X ° 2^] 
= In X + I ln2 

The quantity In X is approximated by the 
polynomial . 

In X = In A - Z (Y + Y^/S + Yf/5 + y7/7) 
which is a Taylor series evaluated at A 



where A - 
and Y = 



A - X 
A + X 



The product [I In 2] is added to In X, and 
the sum is left in FAC. 

A = 0.70710678 
In A = 0.34657359 
In 2 = 0.69314718 

Accuracy is 6+ significant decimal digits 
except for . 904^ Z^ 1.110. In the latter 
range, accuracy decreases as Z-*l. 



4.5 Exponential ; 



4-8 



FLOATING POINT MANUAL 
71-44-001 



COMMAND: 
FUNCTION: 

ERRORS : 



ALTERED REGISTERS & FLAGS 



FEXP (code 35) 

The exponential of the contents of FAC 
replace FAC. (FAC = e^^^) 

If the result is going to be out of 
range, i.e. if FAC 88.722, a flag 
(FEXOF) is set. If FAC was negative, 
zero is left in FAC. If it was positive, 
the largest positive number is left. 

FAC, FTM, FDFLG, FXFLG, FEXOF (FPEXP+1) 



METHOD: 



eX = 2^ lo82 e 

= 2^ + F = 2^ • 2^ 

where I is the integer portion 

and F is the fractional portion of X log^ e 

Multiplication by 2 is computed by the 
continued fraction: 



B + F + C 



F + D 

F 



where 

A = -34.624680982 
B = -17.312340491 
C = 104.0684491 
D = 20.813689813 
log2 e = 1.442695041 



Accuracy is 6+ significant decimal digits 
for JXJ^O. Accuracy decreases slowly as 
Ixl becomes large until at x|;^88, the ac- 
curacy is 5+ significant decimal digits . 



4.6 Square Root ; 
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COMMAND; 



FSQT (code 36) 



FUNCTION; 



The square root of FACi' replaces FAC. 



ERRORS ; 



If FAC is negative, it is forced posi- 
tive, and FSFLG (internal to the square 
root routine) is set non-zero. If FAC 
is positive, FSFLG is set to zero. 



ALTERED REGISTERS & FLAGS; 



METHOD; 



FAC, FSFLG (=FPSQT + 6) 

After FAC is forced positive and FSFLG 
is determined, the exponent of the re- 
sult is determined by dividing FACXP 
by two (by shifting right once) and 
adding lOOg to preserve the excess 2OO3 
notation. If the original exponent was 
odd, the shifted FACXP is increased by 
one; otherwise, it is left alone. If 
the orio'inal exponent was even FACHI 
and FACLO are shifted left once. Since 
the algorithm treats FACHI and FACLO as 
a 32 bit positive fraction with the 
binary point to the left of bit 15 of 
FACHI, the fact that the left shift will 
set the sign bit (bit 15) of FACHI does 
not matter. 

The algorithm then proceeds to determine 
a fourteen bit first approximation to 
the square root by a method based Jon the 
fact that N^ is the sum of the first N 
odd numbers . This method also leaves as 
a "remainder" the difference between the 
square of the approximation and the original 



4-10 

FLOATING POINT NUMBER 
71-44-001 



number. This remainder and the initial 
approximation are then used for one 
Newton-Raphson iteration which completes 
the square root using the single pre- 
cision divide entry (FSDVD) of the 
floating point package. 

Accuracy is 6+ significant decimal 
digits for all input arguments. 
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CHAPTER FIVE 
NON- INTERPRETIVE MODE USAGE 

5.1 Introduction : 

Certain sections of the floating point interpreter are directly 
accessible to the user without the need to supply commands. These sec- 
tions may be invoked by a JU SUBR instruction and, after the operation 
is completed, will return control to the instruction following the jump. 
In order to use these routines successfully, it is necessary to know that 
in addition to the pseudo -accumulator (FACHI, FACLO, and FACXP) there is 
a "temporary" accumulator (FTMHI, FTMLO, and FTMXP) which is used to 
contain the floating argument of a Type II command during the execution 
of the operation (see 1.3). This temporary pseudo-accijmulator, referred 
to as FTM, is loaded in the same manner as FAC (see FLDA instruction in 
2.2.1). If the user desires to access the routines described in this sec- 
tion, he may need to load FTM in addition to FAC for those routines that 
operate on both accumulators . 

These sections will be described as subroutines since they are essen- 
tially used in this manner when accessed directly. When the floating in- 
terpreter resides in memory, all of these subroutines also lie in memory. 

A "command equate" source tape is included in the software package. 
This tape defines these subroutines as well as the various pseudo-registers 
and locations associated with them (see chapter 6) . 



5-2 



5.2 Subroutines:-! 



5.2.1 Double Precision Fixed Point Add 
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NAME: 

CALLING SEQUENCE; 

INPUT: 

FUNCTION: 



NOTES ; 



FDAD 

JU FDAD 

FACHI, FACLO; FTMHI, FTMLO; AO must be in 
ADD state. 

FACHI, FACLO and FTMHI, FTMLO are treated 
as signed double precision numbers and 
added. The result of the addition ap- 
pears in FACHI, FACLO. FTMHI, FTMLO are 
left unchanged. 

If arithmetic overflow occurred (two 
numbers of like sign are added and the 
result has opposite sign) , the link 
will be set to 1. If no arithmetic 
overflow occurred, the link will be 
zero. 

The AO is in the ADD state upon return. 

It is possible to generate the maximum 
negative number (FACHI = lOOOOOg, FACLO = 
OOOGGOg) , which is not considered a case 
of arithmetic overflow; and so the link 
will not be set. 
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5.2.2 Double Precision Fixed Point Multiply 



NAME: 

CALLING SEQUENCE; 

INPUT : 



FUNCTION: 



NOTES : 



FDMPY 

JU FDMPY 

FACHI, FACLO; FTMHI, FTMLO 
AX must be set to the value in FTMHI 
AY must be set to the value in FTMLO 
The AO must be in the ADD state 

FACHI, FACLO and FTMHI, FTMLO are 
treated as signed double precision 
numbers and are multiplied. The high- 
order 30 bits of the 62 bit product 
are returned, right justified, in 
FACHI, FACLO. The value in FTMHI, 
FTMjO is unchanged* 

The AO is in the ADD state upon return. 

The 30 bit product is inaccurate in the 
right-most two bits. If FACHI, FACLO 
and FTMHI, FTMLO are each considered as 
a double precision fraction with its 
binary point immediately to the right 
of the sign, i.e. between bits 14 and 
15 of the high-order word, the binary 
point of the product will be shifted 
right once so that it is between bits 
13 and 14 of FACHI. 
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NAME: 



FDDIV 



CALLING SEQUENCE; 



INPUT: 



JU FDDIV 

FACHI, FACLO; FTMHI, FTMLO 

AX must be set to the value in FTMHI 
AY must be set to the value in FTMLO 
The AO must be in the ADD state 



FUNCTION: 



NOTES : 



FACHI, FACLO and FTMHI, FTMLO are 
treated as signed double precision 
numbers, and the former is divided 
by the latter. The quotient appears 
in FACHI, FACLO. The value in FTMHI, 
FTMLO has been destroyed. 

The quotient will be 30 bits in FACHI, 
FACLO with the binary point displayed 
one position to the right in the same 
way as explained in the note for FDMPY. 

The absolute magnitude of FTMHI, FTMLO 
must have bit 14 of FTMHI set for the 
divide to take place. If this con- 
dition is not satisfied, divide check 
will occur. 

The AO is in the ADD state upon return. 

The rightmost three bits of the quotient 
are inaccurate. Divide check causes 
FACHI, FACLO to be set to a large double 
precision number of the sign which would 
result if the divide could take place 
(FACHI, FACLO = 077777, 177400 or 100000, 
000400 for + and - respectively); also, 
FDFLG is set non-zero. A successful 
divide sets FDFLG to zero. 
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5.2.4 Single Precision Divide 



NAME: 

CALLING SEQUENCE: 

INPUT: 



FUNCTION: 



This code may be 
eliminated if the 
remainder is to be 
disregarded. 



FSDVD 

JU FSDVD 

AX = high order dividend /must be a posi- 



FLODV = low order dividend 



tive 30 bit 
double preci- 
sion number (see 
below) 
AY = negative divisor 

The AO must be in the ADD state. 

This is an inner loop which, if used 
correctly, can be invoked to supply an 
unsigned single precision divide. The 
quotient is incomplete in the sense that 
it is right shifted and truncated upon 
return . 

To obtain a complete single precision 
unsigned divide, the following procedure 
may be used. First, load AX and the lo- 
cation FLODV with a valid two word posi- 
tive product (bits 14 and 15 of AX must 
be zero) . Then load AY with the positive 
single precision divisor and twos xomple- 
ment it. The following code will then 
perform the divide: 



JU 


FSDVD 


; INCOMPLETE QUOTIENT IN TRP 


RRC 


AO,L1,0 


;GET LAST BIT OF QUOTIENT 


SFM 


NOT LNK 


; UPDATE 


RR 


AO,AX 


;REMAINDER 


NOP 




;IN AX 


RR 


TRP,L1,AY 


;TRUE QUOTIENT IN AY 
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Note that the incomplete quotient is in 
the TRP register on return from FSDVD. 
The AO is in the ADD state upon return. 

If either the link is set or AY (the 
final quotient) is negative following 
this code, divide check has occurred. 
This means that the high-order portion 
of twice the dividend was greater than 
or equal to the divisor, and the quotient 
is incorrect. 

NOTES: No flag is set if divide check occurs. 
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5.2.5 Floating Point Normalize 

NAME: 

CALLING SEQUENCE: 

INPUT: 

FUNCTION: 



1) 



FNORM 

JU FNORM 

FACHI, FACLO, FACXP 

Same as FNOR command (see 2.2.3), in- 
cluding the setting of FAC and FXFLG 
should exponent overflow or underflow 
occur. 

The advantage of the accessibility of 
this routine lies mainly in the saving 
of time. For instance, to convert a 
single precision integer value to 
floating point, the following two 
methods could be used. (Assume the 
integer is in AX, and the floating 
equivalent is wanted in location X.) 



KM 


AX, FACHI 


ZM 


FACLO 


MRI 


217, AX 


RM 


AX, FACXP 


JU 


FNORM 


JU 


$SFI 


FSTA 


X 


FEXT 





or, 
2) 



RM 


AX, FACHI 


ZM 


FACLO 


MRI 


217, AX 


RM 


AX, FACXP 


JU 


$SFI 


FNOR 




FSTA 


X 


FEXT 
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Version 1) takes one more location in 
core and saves about 80 machine cycles . 

NOTE: The AO may not be in the ADD state upon 

return. 
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5.2.6 Negation and Store 

NAME: 

CALLING SEQUENCE: 

INPUT: 

FUNCTION: 



NAME: 

CALLING SEQUENCE; 

TWDTTT. 
a.i.ix u J. • 

FUNCTION: 



NAME: 

CALLING SEQUENCE; 

INPUT: 

FUNCTION: 

NAME: 

CALLING SEQUENCE; 

INPUT: 

FUNCTION: 



FACMP, FACMA 

JU FACMP or JU FACMA 

FACHI, FACLO or AX, AY 

a) FAGMP - replaces FACHI, FACLO with 
its two's complement. Result is 
also returned in AX, AY. 

b) FACMA - replaces FACHI, FACLO with 
the two's complement of the double 
precision number in AX, AY. Result 
is also returned in AX, AY. 

FTCMP, FTCMA 

JU FTCMP or JU FTCMA 



'cnjcu'T WMT n «-.- ay av 



a) FTCMP - replaces FTMHI, FTMLO with 
its two's complement. Result is 
also returned in AX, AY. 

b) FTCMA - replaces FTMHI, FTMLO with 
the two's complement of the double 
precision number in AX, AY. Result 
is also returned in AX, AY. 

FASAX 

JU FASAX 

AX, AY 

Stores AX into FACHI and AY into FACLO 

FTSAX 

JU FTSAX 

AX,AY 

Stores AX into FTMHI and AY into FTMLO 
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5.2.7 Generate Zero or Largest Number 

NAME: 

CALLING SEQUENCE: 

INPUT : 

FUNCTION: 

NAME: 

CALLING SEQUENCE: 

INPUT : 

FUNCTION: 



FOFAC 

JU FOFAC 

none 

sets FACHI, FACLO and FACXP to zero 

also returns AX and AY = 

FCMAX 

JU FCMAX 

FACHI 

FACHI, FACLO, FACXP will be set to the 
maximum possible floating point number 
of the original sign of FACHI. 

1) If FACHI <10, this routine sets 

FACHI = 100000 
FACLO = 000400 
FACXP = 000377 

2) If FACHI ^0, this routine sets 

FACHI = 077777 
FACLO = 177400 
FACXP = 000377 

Upon return, AX and AY will be equal to 
the value stored in FACHI and FACLO re- 
spectively. 
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5.2.8 Floating Arithmetic Right Shift 

NAME: FARSN 

CALLING SEQUENCE: JU FARSN 

INPUT: AX, AY, FARSC 

FUNCTION: This routine arithmetically right shifts 

the double precision number in AX, AY 
by the number of places indicated by 
-FARSC . 

NOTES: FARSC must be set to a negative count 

before calling FARSN. 
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5.2.9 Other Notes on Non- Interpretive Usage 

1) The pseudo-index is kept in location FINDX and may be set by the 
user without using an FLDX command (see 2.2.4) by simply storing 
the desired value via a RM R, FINDX where R is a register con- 
taining the index value. This, as with FNORM, is a time saver. 

2) The two flags, FXFLG and FDFLG, are in locations defined by their 
names, and can be checked (or cleared) in non-interpretive mode 
to save time. 

3) The usage of the locations FTBLE, FARGD, FETCH, and FMASK which 
are on the command equate source tape is described in 5.3. 

5 . 3 User Generated Extended Functions ; 

If the user desires to add functions of his own to the extended package, 
the procedure is quite easy as outlined below. 

The extended package as delivered uses command codes 00-36 „ inclusive 
and lOlg through llOg inclusive. There are available codes of 373-77g inclu- 
sive which the user may assign to his own functions. 

User functions may be of two types - invoked by one word commands or 
invoked by two word commands where the second word is an argument address 
or value. If deferred mode addressing is desired as an option for the same 
function, it must be accomplished by user code. Setting bit 6 of the command 
code to attempt deferred addressing will cause the floating interpreter to 
take the error halt. 

Suppose the command name used to invoke the function is to be FFCN 
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assigned to code 37g. 

Step 1) Using the Source Text Editor, add the statement FFCN - 37 
to the Command Equate Tape (see operating instructions) . 

Step 2) The user code which accomplishes the function must have 
the following code just before the END statement 

LOG FTBLE + FFCN 

WRD ENTRY 
where ENTRY is the location at which the user function 
begins execution. 

Step 3) The last instruction executed by the user function must re- 
turn control to FGET. usually via a JU FGET, Remember that 
when the user function is invoked by a command, the interpreter 

passes control to the user function. The JU FGET returns control 

to the interpreter. 
Step 4) If the fxinction the user is generating needs the floating point 

capability supplied by the interpreter, the user function ma" 
call the interpreter followed by a list of commands to ac- 
complish the task subject to the following restrictions: 

a) The command name corresponding to the function it- 
self (in this case, FFCN) may not be used. 

b) Commands which cause the interpreter to be called re- 
cursively may be used so long as care is taken not to 
exceed seven levels of recursion in total (see 4.1) 
(remember that the function being coded is at least 
at level 1 during its execution, and if it calls the 
interpreter, all commands in the list are at least at 
level 2). 

c) No function invoked by a command may have in its code 
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a call to the interpreter whose command string con- 
tains the command name corresponding to the function 
itself. This is an indirect violation of restriction 
a) above. 

Step 5) Assemble the function using the Command Equate Tape for 
pass 1 as explained under operating instructions. 

Notes : If the function being generated is invoked by a two word com- 
mand whose second word is an argument, one and only one of the follow- 
ing steps must occur during its execution. 

a) JU FARGD 

This fetches the contents of the location following the command into 
register AX. 

b) JU FETCH 

This calls FARGD and uses the contents of the location following the 
command as an address to fetch a floating point argument which is 
placed in FTM. Also, AX and AY will be set to the value in FTMHI 
and FTMLO respectively upon return. 

c) ZM FMASK 
JU FETCH 

This causes deferred fetching of a floating point argument. The con- 
tents of the location following the command is used as an address of 
another location which is incremented twice to form the addresses of 
the floating argument which is loaded into FTM and AX, AY as in b) . 

Examples : 

1) FCSX is to be the command name, 1 word, code 37g. When in- 
voked it is to take the COSINE of the SINE of the value in FAC. Assume 

Step 1 has been accomplished by adding the statement FCSX=37 to the command 
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equate tape. This function may be accomplished by the following code; 

FCS: JU $SFI ;enter floating interpreter 

FSIN ;sin of FAC 

FCOS ;cos of FAC 

FEXT ;exit interpreter 

JU FGET ; return to interpreter 

LOG FTBLE + FCSX 
WRD FCS 
END 

When this is assembled with the Command Equate Tape resulting 
from step 1 and loaded with $SFI and the SINE, COSINE routine, the 
user may now call the routine in the floating interpretive mode as 
follows : 

JU $SFI 



FCSX 



FEXT 
Note: The routine must be assembled with the new command equate tape. 
2) FMCS is to be the command name, 2 words, assigned to code 40o 

o 

When invoked, it is to take the SIN of the COSINE of the value in FAC 
and set the sign of the result to the sign of the floating point ar- 
gument whose address is the second word of the command. Step 1 re- 
quires the new command to be added to the command equate tape. This 
function could be coded as follows: 
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fetch arg to AX, AY 

save MSH arg (sign of arg) 

enter floating interpreter 

cos of FAC 

sin FAC 

abs value of FAC 

exit floating interpreter 

get sign of arg 

plus, exit 

minus , comp FAC 

return to interpreter 



FMC: JU FETCH 
RMI AX, 
JU $SFI 
FCOS 
FSIN 
FABS 
FEXT 

MR FMC + 3,AX 
JC AX, GEZ, FGET 
JU FACMP 
JU FGET 
LOC FTBLE + FMCS 
WRD FMC 
END 

When assembled with the Command Equate Tape and loaded with $SFI, 
and the SINE, COSINE routine, it may be invoked by another routine 
assembled with the Command Equate Tape via 

JU $SFI 

FMCS X 



FEXT 
3) FMCSD is to be the command which does the same thing as 
FMCS, only using deferred mode addressing for the argument. FMCSD 
must be assigned a different code - say 41g. Both FMCSD and FMCS 
may be coded in the same routine as follows, assuming their equates 
have been added to the Command Equate Tape. 
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FMCD: ZM FMASK 
FMC: JU FETCH 
RMI AX, 
JU $SFI 
FCOS 
FSIN 
FABS 
FEXT 

MR FMC-+ 3, AX 
JC AX, GEZ, FGET 
JU FACMP 
JU FGET 

LOG FTBLE + FMCS 
WRD FMC 

LOG FTBLE + FMCSD 
WRD FMOD 
END 
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CHAPTER 6 
OPERATING INSTRUCTIONS AND SYSTEM GENERATION 



6.1 Using the Package as Supplied ; 

A Command Equate Tape is supplied for the package as delivered. This 
tape is a source tape and contains the definitions of the floating point 
commands as well as the entries for $SFI, the conversion routines, and the 
names and entry points for the various flags and routines in $SFI that can 
be used in non-interpretive mode or by user coded extended functions. A 
commented listing of this tape appears in Appendix B of this document. The 
tape supplied with the package is not commented. 

This tape is intended for use during assembly of the user programs 
which reference all or part of the Floating Point System. The user need 
not define the names or locations appearing on this tape when he generates 
the source tape for the program he has written. Assuming the source tape 
is regenerated, the following procedure will assemble the program for use 
with $SFI: 

1) Load the Assembler and select pass 1. 

2) Position the Command Equate Tape in the reader, 

3) Press start. The assembler will come to a halt after reading the 
Command Equate Tape. 

4) Position the source tape for the program in the reader. 

5) Press continue. The assembler will now complete pass 1. 

6) Run pass 2 and pass 3 as usual, using only the source tape for the 
program. The Command Equate Tape need not be used during these 
two passes. 
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Steps 1-6 apply to each separate assembly of a user program. When 
the program(s) are assembled and are to be loaded, the user must be sure 
that $SFI is loaded before anything else, because any extended functions 
being used (including user-generated functions) overlay portions of FTBLE 
in $SFI. 

With the object tapes for $SFI, the conversion routines, and the 
extended routines, as delivered, it is possible to create one of the four 
memory maps depicted below. The user may generate his own system suiting 
his needs by following the procedures outlined in the next section. 
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POSSIBLE MEMORY MAPS 
WITH OBJECTS AS DELIVERED 



$SFI Only 



$SFI & Conversion 
Only 



$SFI & Extended 
Only 



7777 



i^lQL 



Utility 
Loaders 



7607 



$SFI 



61 20 



7777 



2610. 



7607 



6117 



User 
Area 



61?.Q 



6117 



4770 



0000 



i 0000 



Utility 
Loaders 



$SFI 



(aiXC 
@SFC 
(asCF 



User 
Area 



7777 


Utility 
Loaders 


7610 




7607 





61-20 ] 



6117 



4771 



4770 



mi 



$SFI 



User 
Area I 



FPSIN 
FPCOS 
FPATN 
FPLNE 
FPEXP 
FPSQT 




Entire System 




0000 



4770 


1 


3714 


FPSIN 
FPCOS 
FPATN 
FPLNE 
FPEXP 
FPSQT 


3713 






User 


0000 


Area 
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6.2 User Generated Systems ; 

6.2.1 General 

The source tapes supplied for the basic package, conversion rou- 
tines, and extended package are organized so that the components of 
any Floating Point System the user may select for his problem will 
assemble such that the object tape generated will load as high as 
possible in memory. Since any configuration of routines which could 
comprise a Floating Point System must contain $SFI as a component, 
the procedure outlined for generating the system assumes that $SFI 
is located at the highest possible place in memory, and all other 
(if any) components will be located at successively lower locations. 

6.3 Assembling $SFI : 

Should the user desire to have $SFI load at some other place in 
core, the package must be re-assembled. Since $SFI will be assembled 
so that it occupies the highest location possible, the user need only 
supply that address. This is done by creating a separate source tape 
which has the following two assembly instructions: 

$$END = XXXXX 
EOT 

where XXXXX is the last address that the user wishes $SFI to occupy. 

To assemble $SFI, one follows the usual assembly procedure, ex- 
cept that the short source tape constructed above must be read in before 
the $SFI source tape at^ each pass . 
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Note: Do not use the Command Equate Tape for this assembly. 

After completion of this assembly, the "$SFI=" statement on 
the Command Equate Tape should be updated (using the Source Text 
Editor) so that it states the new location at which $SFI begins. 
This location may be read off the symbol table printed out at the 
beginning of pass 3 of the assembly of $SFI. 

6.4 Generating a Floating Point System ; 

If a configuration not obtainable with the object tapes supplied 
is desired, the user may, by editing the source tapes supplied (using 
the Source Text Editor), create a new source tape consisting of the 
routines he needs for his purposes. 

Since $SFI is the integral component of any floating point con- 
figuration, it is assumed here that either the object tape supplied 
for $SFI or a relocated version assembled as in 6.3 (and the as- 
sociated revised Command Equate Tape) will be used. 

The source tapes for the conversion and extended routines are 
arranged so that there is one routine per block on the tape starting 
with the second block. (The first block contains comments comprising 
an index to the rest of the tape.) This makes it easy to extract the 
routines desired using the Source Text Editor. The routines on the 
extended package source tape are completely independent. However, the 
conversion source tape consists of three routines -^ the first (physically 
on the tape) of which is shared by both @SFC and @SCF. This means if 
the user desires a conversion routine in only one direction, he must 
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also include the shared routine ((apXC) , The routines (3SCF and (3SFC 
are independent of each other. 

The procedure for extracting the desired routines from these two 
tapes is outlined below: 

1) Load and start the Source Text Editor 

2) Punch a single block at the beginning of the source tape 
being created which says: 

$$END = $SFI 

($SFI-1 will be the last location into which the resulting 
object tape will load.) 

3) If either or both of the conversion routines are desired, 
position the conversion routine source tape in the reader 
and skip the first (index) block. Copy the second block 
(@FXC) , which is the shared routine; then copy the block(s) 
containing the desired conversion routine(s). If neither 
conversion is required, this step may be skipped entirely. 

4) If one or more of the Extended Package routines is required, 

position the source tape for the extended routines in the 
reader and skip the first (index) block. Then copy the 
blocks corresponding to the routines required. If no ex- 
tended package routines are required, this step may be 
skipped entirely. 

5) Punch a final block consisting of the single statement: 

END 

6) Load the Basic Assembler, select pass 1. 

7) Position the Command Equate Tape which corresponds to the 
object of $SFI to be used in the reader. 

8) Press start. The assembler will come to a halt after reading 
the Command Equate Tape. 
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9) Position the source tape generated in steps 1-5 in the 
reader. 

10) Press continue. The assembler will now complete pass 1. 

11) Run pass 2 and pass 3 as usual using only the source tape 
created in steps 1-5. The Command Equate Tape need not be 
used for these two passes . (Even if no assembly listing is 
required, pass 3 should at least be started so that the 
Symbol Table is obtained. 

12) Check the Symbol Table entries for (apCST, (^SFC and (asCF 
against the values appearing on the Command Equate Tape 
used for the assembly and, if they are not the same, create 
a new Command Equate Tape which has the values for @FCST, 
@SFC, and @SCF as they appear in the Symbol Table. 

13) Assemble any user programs using this new Command Equate 
Tape as explained in 6,1. 

Note: 1) The lowest location occupied by the Floating Point 
System as created above will be the value appearing 
for $$END on the Symbol Table printed as a result of 
step 11) above. 

2) The object tape created by this procedure must be 
loaded after $SFI as explained in 6.1. 
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APPENDIX A 



Command Summary - Basic 



Definitions ; 



Y ^ address of floating operand 

'^ address of location containing address - 1 of floating operand 
-^ address of another floating command 
f^ address of index value 

[D] 'v optional selection of deferred addressing 

I ^ index value of source or destination at address Y 

A -^pseudo-accuimulator (FAC) 

X ^pseudo-index register 

F -^ floating value of source or destination at effective address formed 
from Y. 



Code (octal) 


Basic Commands 
FEXT 


Oj 
exit 


»eration 


Flags 


Registers 


00 


none 


none 


01 [101] 


FLDA [D] 


Y 


F-*A 






none 


FAC,FTM 


02 [102] 


FSTA [D] 


Y 


A-TF 






FXFLG 


FAC 


03 [103] 


FADD [D] 


Y 


A+F -♦A 






FXFLG 


FACFTM 


04 [104] 


FSUB [D] 


Y 


A-F-*A 






FXFLG 


FACFTM 


05 [105] 


FMPY [D] 


Y 


A*F-^A 






FXFLG 


FAC.FTM 


06 [106] 


FDIV [D] 


Y 


A/F-^A 






FXFLG, FDFLG 


FACFTM 


07 [107] 


FADM [D] 


Y 


a+(f -►a 






FXFLG 


FACFTM 


10 [110] 


FSBM [D] 


Y 


A- If) -♦A 






FXFLG 


FACFTM 


14 


FABS 




JA|-*A 






none 


FAC 


15 


FASQ 




a2-*A 






FXi'LG 


FAC,FTM 


16 


FNOR 




normalized A 


-►A 


FXFLG 


FAC 


17 


FNEG 




-A-^A 






none 


FAC 


20 


FJMP 


Y 


jump to Y 






none 


none 


21 


FJAP 


Y 


jump to Y 


if A^O 


none 


none 


22 


FJAZ 


Y 


jump to Y 


if 


A - 


none 


none 



Code (oc 


tal) 


Basl 


c Commands 


23 






FJAN Y 


24 






FJEV Y 


25 






FJDC Y 


26 






FJIX Y 


27 






FLDX Y 


30 






FSTX Y 



A-2 



Operation 

jump to Y if A<0 

jump to Y if FXFLG set/O 

jump to Y if FDFLG set^O 

X+1-*X, jump to Y if ^0 

I~^X 

X-*I 
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Flags 



Register 



none 




none 


FXFLG 


(set to zero) 


none 


FDFLG 


(set to zero) 


none 


none 




FINDX 


none 




FINDX 


none 




none 



A 



Command Summary - Extended Functions 



Code (octal) Extended Command 



31 
32 
33 
34 
35 
36 



FSIN 
FCOS 
FATN 
FLNE 
FEXP 
FSQT 



Operation 


Flags 




Registers 


SIN (FAO-^FAC 


FXFLG 




FAC,FTM 


COS (FAC)-*FAC 


FXFLG 




FAC,FTM 


TAN'l (FAC)-*FAC 


FXFLG, FDFLG 




FACFTM 


LOGg (|fAC|)-^FAC 


FXFLG '^ '' 




FAC,FTM 


gFAC,.^ FAC 


FXFLG, FDFLG 
none ^"""^ 


(1) 


FACFTM 


ytFAC|-»FAC 


FAC 



(*) If input argument is negative, FNLNF internal to the FPLNE routine will 
be set non-zero (see write-up) . 

(+) If input argument is negative, FSFLG internal to the FPSQT routine will 
be set non-zero (see write-up) . 

(1) If input argument is too large, FEXOF internal to the FPEXP routine will 
be set non-zero (see write-up) . 



Commented Command Equate Listing 



B-1 
APPENDIX B 



002 

003 

004 

005 

006 

007 

00b 

009 

010 

011 

012 

013 

014 

01b 

016 

017 

01B 

019 

020 

021 

022 

023 

024 

025 

026 

027 

02B 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 

047 

048 

049 

50 

051 

052 

053 

54 

055 

056 

057 

058 

059 



; SFCQ - COMi^ENTED 

;74-43-402L 

;COi^t^Ai>JD EQUATE TAPE 

SSFI=6120 

«^FCST=5705 

@SFC=5377 

@SCF=4771 

FGET=SSFI+2 

FMASK=FGET+12 

FPUi\JT=FMASK+13 

FTBLE=FPUi^JT+14 

FTCMP=FTBLE+111 

FTCMA=FTCMP+4 

FTSAX=FTCi^A+5 

FTiyiriI = FTSAX+l 

FTML0 = FTiyiHI+2 

FAGrtP=FTML0+2 

FACi^A=FACMP+4 

FA5AX= FACOl A+ 5 

FACHI = FASAX+1 

FACL0=FACriI+2 

FL\)0Hi>«I=FACL0+2 

FXFLG=FiM0ri^+3 

FACXP=FXFLG+50 

FINDX=FACXP+20 

FDAD=FIiMDX+5 

FDMPr=FDAD+31 

FDDI y=FDiylP/+ 143 

FDFLG=FDDIV+3 

FSDVD=FDFLG+121 

FLODV=FSDVD+10 

FETCH=FL0DV+27 

FSPLT=FETCH+16 

FTiyiXP=FbPLT+6 

FAHG1> FTi4XP+24 

FPUSH=FAHGD+1 

FARSM=FPUSH+2 

FAR5C=FAHSiM+6 

FCMAX=FAHSC+7 

F0FAC=FGi4AX+21 

FPSTA=«F0FAC+32 

FIiNJAC=FPSTA-«-34 

FLIST=FIWAC+373 

FEXT=0 

FLDA= 1 

FLDA1>101 

F5TA=2 

FSTAD=102 

FAD1>=3 

FADDD=103 

FSUB=4 

FSUBD=104 

FMPY= 5 

Flip/ D= 105 

FDIV=6 

FDIVD=106 

FAM= 7 

FADMD=107 

Fi5Bi?1=10 
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ElNJTR/* INTEKPnETER 
GriAHAGTEH SET TABLE 
EMTH/# FLTiNJG. TO GriAR. 
Ei.^TtiY* GHAR. TO FLTNG. 
ENTnf> EXTERNAL RETURiSi 
i^ASK FOR DEFERRED i^ODE 
ILLEGAL COMMAND ROUTINE 
TABLE OF ENTRIES 
ENTRir> FTM NEGATION 
EiNJTRY, -(AX^AY) TO FTM 
E.NJTRY> (AX*Ar) TO FTM 
HIGH ORDER FTM 
LOT*/ ORDER FTM 
ENTR]r> FAG NEGATION 
ENTRY J -CAX^A/) TO FAG 
ENTRr^ (AX^AY) TO FAG 
HIGH ORDER FAG 
LOW ORDER FAG 
EkNTRY> NORi^ALI iATI ON 
EXPONENT OVERFLOW FLAG 
FAG EXPONENT 
PSEUDO- INDEX 





ENTRY* DBLE. PREG. 


ADD 




ENTRY* DBLE. PREG. 


MULT. 




EN TRY ,. DEL E . P RE C • 


DIV. 




DIVIDE CHECK FLAG 






ENTRY* SNGL. PREC 


DIV. 




L. 0. DIVIDEND FOR 


ABOVE 




ENTRY* FLTNG ARG TO FTM 




SPLIT ARG. TO FAG. 






FTM EXPONENT 






ENTRY* IMMED FETCH 


TO AX 




PUSH DOWN POINTER 






ENTRY* ARITH RGHT ; 


bHFT 




SHIFT COUNTER FOR ABOVE 




ENTRY* MAX. ^0 » TO 


FAG 




ENTRY* ZKHO TO FAG 






STORE FAG 






PACK FAG 






PUSH DOWN LIST 






EXIT COMMAND 






LOAD FAG COMMAND 






LOAD FAG DEFERRED 






STORE FAG 





STORE FAG DEFERRED 
FLOAiING ADD 

ADD DEFERRED 

SUBTRACT 

SUB. DEFERRED 

MULTIPLY 

MULT. DEFERRED 

DIVIDE 

DIVIDE DEFERRED 

ADD MAGNITUDE 
DEFERRED 
MAGNI TUDE 



FLOATING 

FLOATING 

FLOATING 

FLOATING 

FLOATING 

F'LOATING 

FLOATING 

FLOATING 

FLTNG ADD MAG 

FLOATING SUB. 
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060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
07b 
076 
077 
07d 
079 

0d0 

08 1 
08 2 
08 3 



FSBi^D=l 10 
K1KA)=11 
FTkF=12 
FSET=13 
FAB:3= 14 
FA5bi= 1 b 
FiS)JK=16 
F.\J£G=17 

i«JiVlP=20 
F JAP= 2 1 
FJA^i=22 
FuAi\l=23 
FJEV;=23 
FJDC=2b 
FJIX=26 
FLDX=27 
FblA=30 
FSIiS)=31 
FC0b=32 
FAii\J=33 
FLiN3E=34 
FEAP=3b 
FSyi=36 

EOl 



Fl-iiMCa bUB MAG 


DEFEriKED 


IKACE JiNJ 




IrtACE Qi-h 




bE'l EHKOh irtAP 


ABSOLUTE MAG:gi 


; lUDE 


bQUArtE 




.MOrir^ALIzlE 




iMEGATE 




U\iGOx\JDITIO.>JAL 


JUMP 


JUi^iP IF FAC > 


OH = 


JUMP IF FAC = 





JUMP IF FAC < 





JUMP IF FAtLG 


NOi 


JUMP IF FDFLG 


.NJO i 



BUMP FI-\IDX> O/it^ IF ^Ji 

LOAD PbEUDO-IiNlDEX 

blOnE PbEUDO-i.SlDEA 

blixiE 

CObl.\JE 

AxiClAtNJGE.NJT 

tSJAiUHAL LOGAni iriM 

EAPOi\)E.\JiIAL 

bUUAHE KOO'i 

AbbE'^BLEK HALT 



NAME: $SFI 
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APPENDIX C 



Source Tape Organization 



;$SFI 

.74-43-4OIL 

; IDENTIFICATION 

$$END»«$$END-1467 

LOG $$END 



block mark 




block mark 



comprises several blocks 



Em 



block laark 



NAME; (apXV 
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y 



(apxv 

74-4 3-4 lOL 

IDENTIFICATION 

INDEX (BLOCK NO, 

VS. ROUTINE) 



index (block 0) 



block mark 



@FCST 

74-43-411L 

IDENTIFICATION 

$$END=$$END-213 

LOC $$END 

@FCST=. 



common module (block 1) 



block mark 



@SFC 

74-43-412L 

IDENTIFICATION 

$$END=$$END-306 

LOC $$END 

@SFC=. 



J 



floating to character (block 2) 



block mark 



SCF 

74-43-413L 

IDENTIFICATION 

$$END=$$END-406 

LOC $$END 

@SCF=. 



character to floating (block 3) 



block mark 



END 



block mark 



NAME; $FEF 




SFEF 

74-43-420L 
IDENTIFICATION 
INDEX (BLOCK NO 
VS. ROUTINE) 
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index (block 0) 



block mark 



FPSIN 
74^43-4 21L 
IDENTIFICATION 
$$END»$.$END-173 



LOG $$END 
FPSIN: 



block mark 



;FPATN 
;74-43-422L 

$$END=$$END-146 

LOC $$END 

FPATN: 



block mark 



;FPLNE 

;74-43-423L 

; IDENTIFICATION 

$$END=$$END-164 

LOC $$END 

FPLNE; 



block mark 



;FPEXP 

;74-43-424L 

; IDENTIFICATION 

$$END"$$END-201 

LOC $$END 

FPEXP: 



block mark 



;FPSQT 

;74-43-425L 

; IDENTIFICATION 

$$END-$$END-127 

LOC $$END 

FPSQT: 



block mark 



END 



block mark 



Sine/Cosine (block 1) 



arctangent (block 2) 



natural logarithm (block 3) 



exponential (block 4) 



square root (block 5) 
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APPENDIX D 

%FCG - Floating Point Constant Generator 

%FCG - Floating Point Constant Generator 

%FCG is a utility routine which is provided should the user wish to 
use floating point constants whose octal equivalences are unknown. With 
%FCG, the user can type in a floating point decimal number and receive 
the equivalent internal floating point representation. 

%FCG occupies locations 0-2660 inclusive. 
Operating Instructions 

1. Load %FCG by means of %ALD. 

2. Turn teletype on-line, 

3. Set SC=0. 

4. Press START. 

5. %FCG responds with a carriage return, line feed. 

6. Type a string of up to 13^ q characters terminated with an equal 
sign (=) . The character string should be in the format described 
in section 3.3, where the delimiter is an = rather than a carriage 
return. Typing a back arrow at any point causes the first previous 
non-back arrow to be ignored. Typing rubout at any point causes 
%FCG to type a carriage return, line feed, question mark (?) and 
returns to step 5. Typing more than 13 characters before typing 
an equal sign has the same effect as typing rubout. 

7. When the user terminates the character string with the equal 
sign, %FCG responds by typing the 2 word floating point equivalent 
(in octal) and returns to step 5. 

8. If the character string did not conform to the format specified in 
section 3.3, the message SCAN ERROR is typed and %FCG returns to 
step 5. 
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9. If the character string resulted in a number whose magnitude was 
outside the range 1.469369E-39 to 1.701411E+38 or if the character 
string contained more than IO-iq mantissa digits, the message 
ANSWER OUT OF RANGE is typed and %FCG returns to step 5. 
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APPENDIX E 
FPSET - Error Trap Routine 

Introduction : 

A series of floating point calculations on an unknown data base can 
generate errors, such as results which exceed the capacity of the machine 
or dividing by 0, etc. In order to facilitate the localization of the oc- 
currence of such errors, FPSET is provided and serves as an error trap 
routine. When an error specified by the user is detected, FPSET will 
interrupt the operation of the interpreter and give control to a user 
supplied error routine. FPSET supplies the user error routine with the 
following information, allowing the user to pinpoint the step in his cal- 
culations at which the error occurred: 

AX = recursion level at which the command at the address in AY was 
executed. 

AY = address of command executed immediately previous to detecting 
the error. 

TRP = error number indicating which flag in the user supplied error 
list was set non-zero. (TRP = position of address of error 
flag in user supplied table (see usage)). 

The recursive capability of the interpreter somewhat complicates cer- 
tain usages of FPSET and, for this reason, three modes of operation of 
FPSET are allowed: "On", "Off", and "Partially On". The latter mode 
allows FPSET to keep track of commands and recursion levels without ex- 
amining any error flags. The utility of this mode is described in the ex- 
amples at the end of this appendix. 



WRD 


ERR 


WRD 


FLGl 


WRD 


FLG2 
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Usage ; 

FPSET is controlled by the use of the FSET command in the sequence of 
floating commands being executed by the interpreter. There are three modes 
of operation of FPSET: 1) ON, 2) OFF, and 3) PARTIALLY ON. 

1) To turn FPSET ON, the command is 

FSET A 
where A is the address of a table with the following format: 

A: WRD ERR ;USER ERROR ROUTINE ENTRY 

;ADDRESSES OF SYSTEM 
; FLAGS TO BE CHECKED... 

WRD -1 ;END OF TABLE SIGNAL 

When this FSET command is encountered with a positive non-zero value for 
A, FPSET will examine the state of every flag listed in the table at address A 
after every command executed by the interpreter from the point of the FSET A 
command onward. Whenever a flag whose address is in the user list has become 
non-zero (indicating an error), FPSET zeros the flag, and then gives control 
to the user error routine at the address specified in the first word of the 
table at A. The information supplied to the user error routine is as stated 
in the introduction. 

The user error routine may use $SFI, but any additional errors which might 
occur will not be checked by FPSET, and any FSET commands in the command se- 
quence will be ignored. If the user wishes to call $SFI in his error routine, 
it is up to him to save and restore the states of the interpreter system flags 
and the floating accumulator (FAC) before and after such $SFI use. 
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2) To turn FPSET "off", the command is 

FSET 

This completely disconnects FPSET from the interpreter. 

3) To turn FPSET "partially on", the command is 

FSET N 
where N is any negative number. 

In this mode, FPSET will keep track of the current command address and 
recursion level but will not examine any flags. If FPSET is at some later 
time turned "on" and discovers a flag set non-zero, the level and the com- 
mand address will be correct within certain limitations (see Notes) . 

This mode is useful when the user does not wish to enter his error 
routine for errors which occur during execution of a section of his command 
sequence. For example, the command sequence may contain an FJEV or similar 
test for conditions known to the user, and with FPSET "on", these conditions 
could be altered (cleared) if the corresponding flags are in the user error 
list at A. In this case, an FSET N (where N<0), issued before entering this 
section, and an FSET A (A^O, A=address of table), issued after completion of 
this section will allow FPSET to retain the necessary information should 
other errors occur and allow the section itself to operate properly. 

User Error Routine : 

Basically, the user error routine may do anything. However, the user must 
remember that his error routine is considered as an extension of the inter- 
preter. At the completion of the error routine, control should be given back 
to the interpreter via a JU FGET or similar return. 

Register AX is used as an argument upon return (via JU FGET) and can turn 
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FPSET "on", "off", or "partially on" according to AX>0, AX=0, or AX< 
respecti*vely . If AX^O, it must be the address of an error table as de- 
scrib'ed above (it need not necessarily be the same one as before) . 



Notes : 

1) It is generally the case that an error flag is set by the command 
immediately preceding the detection of the flag non-zero. In the 
case where FPSET was not "on" at that moment, but was turned on 
later and found the flag non-zero, FPSET will report that it does 
not know which command caused the error by giving an AY value 
which points to the FSET "on" command or by AY = -1. The dif- 
ference in meaning of the two AY values is as follows: 

a) AY = address of FSET "on" command if the flag was non-zero 
at the time the FSET "on" command was encountered. 

b) AY = -1 if all flags were zero when the FSET "on" was en- 
countered, but a flag was set non-zero later at a point 
which indicated that the command which caused the error 
was at a recursion level one less than the level at which 
the error was detected. This situation is avoided if 
FPSET is partially on throughout until it is turned on. 

2) If the user wishes to restart his entire program or in any other way 
wishes to use the interpreter without reloading it, he should make 
sure that FGET+1 is initialized to FARGD and FPUSH is initialized 

to FLIST-1. 

3) A FEXT command does not affect the mode of operation of FPSET, i.e. 
upon re-entering $SFI, FPSET will operate as per the last FSET com- 
mand encountered before the FEXT. 

Operating Instructions : 

1. If a user generated floating point system is being used (as per 
section 6.4), the FPSET program needs to be reassembled. To do 
this, make a short source tape with the following two instructions: 

$$END = XXXXX 
EOT 



E-5 

FLOATING POINT MANUAL 
71-44-001 



where XXXXX is the lowest location occupied by the user generated 
system. Then assemble FPSET as explained in section 6.1 of this 
document, making sure that the short source tape above is read in 
before the FPSET source at the beginning of each pass (steps 4 & 6 
of 6.1) and the Command Equate Tape is read in at the beginning 
of Pass 1. 

2. Load FPSET after $SFI. 

3. Start user program which has FSET commands in the usual way. 



Examples 

1. Typical usage of FSET "on" and "off" 



User Main Code 



JU $SFI 



FSET A 



'^^ 



FSET 



FEXT 



WRD ERR 

WRD FXFLG 

WRD FDFLG 

WRD -1 



;Turn FPSET on 



(causes divide check, FPSET gives control to) ►eRR: 



This returns control to interprete r 



to execute next command 

Errors in here 
are not detected 
by FPSET 



;Address of user error routine 
;Address of exp over/underflow flag 
;Address of divide check flag 
;End of table 



User Error Routine 



(TRP = 000002 
indicating second 
flag in table at A 
was set) 



MRI A, AX ;Turn FPSET back on 
■JU FGET 



I 



o 
> 

H 
M 

M o 
I 

■O O 

I M 

s ^ 

O H 



£5 



Example 



2. Use of FSET "Partially On" 



User Main. Code 



JU $SFI 



FSET -1 ;tum FSET partially on 



FJEV ; Reason for FSET partially on 
FDIV ; Error (divide check) occurs here 
FUFN ;User defined function 



Us< 


sr Coded Extended 


Function 




FPUFN: 


JU 

• 


$SFI 










• 

FSET 


A 


iTurn FPSET on 












(Detects FDFLG error 










innnediately and traps 
to user error routine) 


A: 


WRD 


ERR 




;User supplied 


table 




WRD 

• 


FDFLG 








WRD 


-1 












In this example, because FPSET was only partially on when the error actually occurred, the 
error trap will indicate that the erring command was FSET. It will, however, indicate that the 
divide check flag was on (TRP - 000001 since FDFLG is first in table A) and that the error oc- 
curred in recursion level 2 since FPSET was turned on in the user function. 



g 

H 
M 

M O 
I 

*- O 

1 M 

2 ^ 

O H 



Examples 



3. Another usage of FPSET "Partially On" 



User Main Code 




JU $SFI 




• 

FSET -1 ;Turn FPSET partially on 

• 




FJEV 









User Coded Extended Function 



FPUFN: 



In this example, FPSET indicates an error on 
recursion level 1, and that the command 
causing the error was FUFN (i.e. AY will have 
address of FUFN command) . This is as it should 
be since the arguments given to the user function at 
the FUFN caused the function to set an error con- 
dition. 

Note: If the FSET -1 had not been issued in the Main 
Code, FPSET would have indicated the AY= -1 condition, 
It would, however, indicate the correct flag and the 
correct level (i.e. level 1). 



JU $SFI 



FSET A 



FEXT 



ZM 



JU 



P1,FUFLG 



$SFI 



A; WRD ERR 

WRD FXFLG 

WRD FDFLG 

WRD FUFLG 



WRD -1 



;Turn FPSET on 
(no errors yet) 






Input argument cause 
\ user coded function 
to set error flag 






H^ error is detected here 
by FPSET 



I 

C» 



1-^ 

f 

o 
> 

H 
M 

l-'O 
I 
4>> >Xi 

I l-l 

S^ 

OH 



2! 
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APPENDIX F 



Trace Routine 

The floating point trace is a debugging aid which prints 
the value of pertinent variables in $SFI and the user's program 
before the execution of each floating point pseudo command. The 
variables printed are: 

A. current level of $SFI 

B. address of the instruction to be executed 

C. code for the instruction to be executed 

D. FINDX (floating point index) 

E. FDFLG (divide check flag) 

F. FXFLG (exponent overflow/ underflow flag) 

G. FAG (floating point pseudo accumulator) 
H. effective address of argument, if any 
I. value of argument, if any 

The user specifies which of the variables are to be printed 
and the maximum level for which he wants the information printed. 
This is done through the floating point pseudo commands FTRN 
and FTRF. 

To turn the trace on and specify which of the nine variables 
are to be printed, the pseudo command is: 

FTRN X 
where bits 0-8 of the integer X correspond to the variables A through 
I above. For each bit that is on (=1) the corresponding variable 
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will be printed before the execution of each floating point command. 
The FTRN command sets maximum recursion level to be traced tc 7, 
turns the trace on and prints a heading (A-I) , telling which variables 
are to be printed. The "trace on" causes the specified variables to 
be printed on one line before each instruction is executed. 

The printed value of variables H (argument effective address) 
and I (argument) need further explanation. If the command to be 
executed has no argument, columns H and I will be blank. If the 
argument is floating point, I is printed as a floating point deci- 
mal number, otherwise it is octal. If the command is FTRN, FTRF or 
a JUMP command, then H is the address+1 of the command and I is the 
contents of H. In the case of the commands FLDX Y, or FSTX Y, H is 
the address Y and I is the contents of Y. For user coded extended 
functions, coliomns H and I will be blank unless the function has a 
floating point argument . 

To turn the trace off beyond a certain level, the pseudo command 
is : 

FTRF X 
where the integer value X specifies the maximum recursion level (1-7) 
for which the specified variables are to be printed. If X is less 
than or equal to 0, the trace is disabled and no variables will be 
printed from then on until another FTRN X command is executed. 
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Notes ; 

1) When the trace has been turned on, certain locations in 
$SFI are changed. $SFI is restored to its original state 
only after the trace is completely disabled by an FTRF 
command. Therefore, to restart the user program or use 
$SFI without reloading when the trace has been on, the user 
should make sure that: 

a) FGET+1 is initialized to FARGD 

b) FSPLT is initialized to 11 0000 06 

c) FSPLT+1 is initialized to FTMHI 

d) FPSTA+1 is initialized to FARGD 

2) The trace program cannot run at the same time as FPSET, 
and so shotild be assembled over the FPSET program. Therefore, 
if the trace is on and an FSET command is encountered, the 
FSET command is considered illegal. That is, the interpreter 
halts with the address of the illegal command in the MB reg- 
ister on the front panel. (See section 2.2.5). 

Operating Instructions ; 

1) If a user generated floating point system is being used 
(see section 6.4), the trace program (FPTRC) should be re- 
assembled. Since FPSET and FPTRC are mutually exclusive, 
FPTRC is assembled over the FPSET program. To do this, make 
a short source tape with the following two instructions; 

$$END = XXXXX 

EOT 
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where XXXXX is the lowest location occupied by the user 
generated system (excluding FPSET) . Then assemble FPTRC 
as explained in 6.1. Make sure that the short source tape 
above is read in before the FPTRC source at the beginning 
of each pass (steps 4 & 6 of 6.1). Read the Command 
Equate Tape in at the beginning of Pass 1. 

2) Load FPTRC after $SFI. 

3) Load and start user program with FTRN and FTRF commands 
in the usual way. 



001 
00^ 
003 
004 
005 
006 
007 
008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 
021 
022 
023 

024 

025 

026 



00000 00 0100 03 

00001 006120 

00002 00 0000 11 

00003 000757 

00004 00 0000 27 

00005 000032 

00006 00 0000 01 

00007 000033 

00010 00 0000 05 

00011 000035 

00012 00 0000 02 

00013 000035 

00014 00 0000 26 

00015 000006 

00016 00 0000 11 

00017 000367 

00020 00 0000 01 

00021 000033 

00022 00 0000 06 

00023 000035 

00024 00 0000 02 

00025 000037 

00026 00 0000 12 

00027 000000 

00030 00 0000 00 

00031 02 0100 00 

00032 177775 

00033 050000 

00034 000203 
fAacA'^ti. a/i(AfA(Aa 

K^ K^ K^ \^ «^ K^ "-X XJ K^ XJ XJ 

00036 000202 

00037 midididQ 

midm 000000 
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;THIS example uses two FThlvJ COMl^ANDS. 

iTriE 1ST FTHiM SELECTS VARIABLES A, B^ C* D> F* G*H^ 1 

;T0 be PHIi^TED. THIS IS IM EFFECT UNTIL THE 

;2i\JD FTHN IS EXECUTED. THE SELECTED VARIABLES 

;ARE THEl^» CHAlMGED TO A> B* C> E* F* G*H. THE 

;FTRF COMPLETELY DISABLES THE TRACE. 

JU $SFI 



Wl 
X: 



Li 



FTRN 757 

FLDX W 

FLDA X 

FMP/ X 

FSTA r 

FJIX .-6 

FTRi>J 367 

FLDA X 

FDIV / 

FSTA L 

FTRF 

FEXT • 

FOM HLT 

WRD -3 



; PRINT A* B* C* D^ F> G> HW 



;r=x*Y 



;DOi>JE LOOP 3 TIMES? 
; PRl N T A, B, C* E> ¥, G, A 



i TURiM TRACE OFF 



;loop COUNT 



WRD 50000*203 i5.0 



**Miyic*iy* ava 



WRD 0* 



END 



;0.0 
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A 



D 



ri 



1 ididid^^ 


00027 


000000 





+ 2. 


. 356227t:-39 


00032 


177775 


1 00006 


00001 


177775 





+ 2. 


. 356227E-39 


00033 


+5«000000E+00 


1 00010 


00005 


177775 





+ 5. 


»000000E+00 


00035 


+2.000000E+00 


1 00012 


00002 


177775 





+ 1. 


►000000E+01 


00035 


+2.000000E+00 


1 00014 


00026 


177775 





+ 1. 


.000000E+01 


00015 


000006 


1 00006 


00001 


177776 





+ 1* 


►000000E+01 


00033 


+5.000000E+00 


1 00010 


0000b 


177776 





+ 5. 


►000000E+00 


00035 


+1.000000E+01 


1 00012 


00002 


177776 





+ 5. 


►000000E+01 


00035 


+1.000000E+01 


1 00014 


00026 


177776 





+ 5< 


»000000E+01 


00015 


000006 


1 00006 


00001 


177777 





+ 5< 


►000000E+01 


00033 


+5.000000E+00 


1 00010 


00005 


177777 





+ 5- 


.000000E+00 


00035 


+5.000000E+01 


1 00012 


00002 


177777 





+ 2. 


►500000E+02 


00035. 


+5.000000E+01 


1 00014 


00026 


177777 





+ 2. 


. 500000E+02 


00015 


000006 


1 00016 


0001 1 


000000 





+ 2. 


. 500000E+02 


00017 


000367 



A b 



1 


00020 


00001 








+2. 500000E+02 


00033 


1 


00022 


00006 








+ 5.000000E+00 


00035 


1 


00024 


00002 








+2.000000E-02 


00037 


1 


00026 


00012 








+2.000000E-02 


00027 



001 
00ia 
003 
004 
005 
006 

007 

008 

009 

010 

01 1 

012 

013 

014 

015 
016 
017 

016 

019 
020 
021 

022 

023 
024 

025 
026 
027 
02d 

029 

030 
031 

032 

033 
034 
035 
036 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
0001 1 
00012 
00013 
00014 
00015 
00016 
00017 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 



00 0100 
006120 
00 0000 
000777 
00 0000 
000002 
00 0000 
000043 
00 0001 
000044 
00 0000 
000046 
00 0000 
000046 
00 0000 
000010 
00 0000 
000000 
00 0000 
02 0100 

00 0100 
0070 57 

1 1 0000 
000035 
00 0100 
006120 
00 0000 
000050 
00 0000 
000000 
00 0001 
000045 
00 0000 
00 0100 
006122 
177776 
000077 
000077 
000000 
000000 
076400 
000211 



00100 062000 

00101 000206 

00102 050000 

00103 000204 



06222 000024 



FLOATING POINT MANUAL 
71-44-001 
; EXAivlPLE 2 

;THIS EXAl^PLE PHlixJlS ALL 9 VARIABLES 
;FL)n riECUrii>iai>J LEVELS 1 At>Ji) 2. 
; THE USEK EXTEiMDED EUi>JGiIOt^ lb AT 
;HECUiiSIOi\J LEVEL 2. 
JU SSFI 

FTH^3 777 

FTHF 2 

FLDX X 

FLDAD X+1 

FSTA r 

FUFiNj r 

FJIX .-6 

FiHF 

FEXT 
FOi^ HLT 



;Pnii^T A>B* C> D> E*]"^ G*H* I 

;max ikace level=2 
; fetch ahg defehhed 

;USEK EXTEiMDED FUi\JGTIOi>i 
; DOiME? 

;yes^ thace off 



0G 

03 

01 

06 AHG: 

02 

00 
03 

X; 

Y: 

^: 



^^ 



FARGD 



£XX . AHn-4- 1 



JU SbFI 

FLDA Z 

FDIV 

FSTAD X+2 

FEXT 

JU FGET 

WKD -2 

WhD 77 

WHD 77 

WHD 0> 



;500.0/r 



iLOOP CQUiNjT 
J FETCH ADH* DEFERRED 
; STORE ADR, DEFERRED 
;FUFCa ARG. 



WRD 76400J211 ; 500.0 

LOG 100 

yinD 62000>206 ;50«0 

WRD 50000,204 ;10.0 



FUFi^=37 



LUC FTBLE+FUF.NJ 
WRD FPUFi^J 

EMD 



F-8 



FLOATING POINT MANUAL 
71-44-001 



1 ,• r.'i o r« /. r- r; n i o r- p. r ' '■: n. p r> f:i + ^ • '^ 5 ^- P P 7 E - ? ^ T- ^ T ' v' 5 [?'''' ^' '^ 1'' 2 

1 r^irPin r^Rir^i 177776 P5 C^ -»- p. 356PP7r:- "^ rir^10(^ j- 1;. n^Rpr.^' r-<- ni 
IP f>i Pi r^'i Pi P 1 V 7 7 7 ?^ P P; + 5 . (^ ^'' (^5 1-'> ■■'' \ P^ '' P'^'6 -^ <'■'' • C' R P' f- ■ ^■' >' ■ '''-*- (^' P 



r- r 



1 r^ ri rn x-! R P f?; 3 7 1 7 7 7 7 f^ p R -f 5 . t^' P P P' p ^' "''-^ (^'i 1 

rw''f:>:Jp PlfTir^Pil 17777^. P P 4. S, PPPPPPJ-'+P 1 (/if^-PiSR 4- S. PPPP'Pf ^(' + PP 

V - •'- '• r^ '< /■ f7: ^v^ n n f^- ]iiii(-. p P -«- 5 , P P P P P P m:4. r-i p ■ f/; r^^ i;i ^= is -»- '^ . ^^i ^i p p p p t-u p i 

^^ r'r;r^36 PPIPP 177776 P P + ] . PPPP0PF:4- w i fiPiPP -«. s , (?; p; r? p mr )v+ m 

';> ('.c:(7sLS^ PJAOx{AU\ 177776 P P ■*■ J . PPPPPPF+P) 

1 pr:m6 f^PPP6 17 7776 P P + 1 • PPPPpPRj-Ri Pf;:P17 ''-PPPIP 

i P'T'IP PP]P1 17 7777 P P -I- 1 , 0Rpp0r^TVj- R 1 Pf.-iiPP 4- 1 , PPPPPP I' + P 1 

1 '-('.r-^yo pPf?RP 177777 P P + 1 . PPPPPP -^^ ^H PpP/!6 j- 5, (:;i(:if7^r;i':r-v+ r^-, ] 

1 ':ra'U' PPP37 177777 P P + i . fvipr?n0(?K+ P 1 

;- f;i r f^ 3 p PA':<7^{?•\ 177777 '" P -«- 1 . P P P Pi f^ P H.4. p j ?:V'9't' V, + b . (■- P I i ■■ i ' ' f'' I' + '■■ '-• 

O o{[r-Mx P!PPP6 M'illl P P + S, PPPPPPKJ-PP PPP^7^ -»- 1 . PlPpf-' P]v+(': 1 

o r'PP36 PP )Pp 177 7 77 P P + S. PP0PPPF+ P I PP]PP -»- 1 , ' i-u'-: ■■ p, i-.*. P; 1 

PPPPP 177777 P P +h. (':PPPPPF+P] 

PPPP6 177777 P P 4. 5, r^f^pipiPipy.:+p 1 PPP17 PPPPIP' 

ri Q r' 1 p c- p; p p' p '^' r^ p 4- 5 . P P P P P P 1^'+ P 1 P !'■ ^: P 1 f-^ P 'y'^ ''■• ^' ^■' 



Tm (:■ r 1 6 
p P' P P P 
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FLOATING POINT MANUAL 
71-44-001 



001 








; EXAMPLE 3 








002 








;THIb 


IS THE SAME 


AS EXAMPLE 2 


003 








; EXCEPT THE 


MAXIMUM HEGUHSIOtV 


004 








;l£vel 


PHI ^J TED IS 


LEVEL 1 DUE 


005 








;to the fthf i cOi^^AmD 


• 


006 


00000 
00001 


00 0100 
006120 


03 




JU 


$SFI 






007 


00002 
0k30lc33 


00 0000 
000777 


11 




FTHi^ 


777 




;PHIiNjT A*B*C*D* E*F*G*H* 


008 


00004 
00005 


00 0000 
000001 


12 




FTHF 


1 




;MAX THACE LEVFf.= l 


009 


00006 
00007 


00 0000 
000043 


27 




FLJ^: 


X 






010 


00010 


00 0001 


01 




FLDAD X+1 




; FETCH AHG DEFEHHED 




00011 


000044 














011 


00012 
00013 


00 0000 
000046 


02 




FSTA 


f 






012 


00014 
00015 


00 0000 
000046 


37 




FUFN 


i 




;USEH EXTElNJDED FUiMCTIOlsJ 


013 


00016 
00017 


00 0000 
000010 


26 




FJIX 


.-6 




; DQiME? 


014 


00020 
00021 


00 0000 
000000 


12 




FTRF 







rfES* THACE OFF 


015 


00022 


00 0000 


00 




FEXT 








016 


00023 


02 0100 


00 




FOM 


HLT 






017 


00024 
00025 


00 0100 
007057 


03 


FPUFi^ : 


JU 


FAHGD 






018 


00026 


11 0000 


06 




km 


AXjAHG+1 






00027 


000035 














019 


00030 
00031 


00 0100 
006120 


03 




JU 


$SFI 






020 


00032 
00033 


00 0000 
000050 


01 




FLDA 


Z 




; 500.0/:f 


021 


00034 
00035 


00 0000 
000000 


06 


AHG: 


FDIV 









022 


00036 


00 0001 


02 




FSTAD X+2 








00037 


000045 














023 


00040 


00 0000 


00 




FEXT 








024 


00041 
00042 


00 0100 
006122 


03 




JU 


FGET 






025 


00043 


177776 




X: 


WHD 


-2 




;loop couiSiT 


026 


00044 


000077 






WHD 


77 




; FETCH ADH* DEFEHHED 


02 7 


00045 


000077 






WHD 


77 




; STOHE ADH* DEFEHHED 


028 


00046 
00047 


000000 
000000 




^: 


WHD 


0^0 




; FUFM AHG. 


029 


00050 
00051 


076400 
000211 




Z.S 


WHD 


76400* 


211 


; 500.0 


030 










LOG 


100 






031 


00100 
00101 


062000 
000206 






WHD 


62000* 


206 


; 50.0 


032 


00102 
00103 


050000 
000204 






WHD 


50000* 


204 


; 1 . 


033 








FUFi^=37 








034 










LOG 


FTBLE+FUFiM 




035 


06222 


000024 






WHD 


FPUFiM 






036 










EiMD 
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FLOATING POINT MANUAL 
71-44-001 



w 



1 n p. (■■ P h 


r> f-; P 1 P 


p P. pp\fp 


P 


r,' 


+ P. 


3!S6PP7^- '?o 


p R r f-^ s 


PPPP^'I 




\ {..(Al'iAf. 


p p <:' p 7 


vPPPPi^^ 


f;», 


p< 


+ P. 


356PP7}"- 30 


(■■ I'"- f-' /! 3 


1 7 7 7 7 r^ 




1 PrP\(7: 


f7' R 1 f^ ) 


1 1117 f. 


P 


pi 


+ P. 


356?P7t-3^^ 


PPI pp 


4- c, . p r;^ R p 1 


■1-V+P) 


1 C P P, 1 p 


p^ (?, !? pi p 


] 7 ■/ 7 7 f- 


P 


p' 


-«-5. 


PPPPPPF+P 1 


P P P l\ C-, 


+ R . p P f ' r;- 1 


.ipi^ + f'.;v 


1 PPP\ h 


p n R 3 7 


1 777 7^ 


P 


p 


+ 5. 


0PPPPPK+P1 








] pr-'](^ 


f;- p f ^ P fs 


17 7 7 7 6 


P 


p 


+ 1 . 


PPPPPPF+Pl, 


p r - P 1 7 


p. p p p 1 f- 




1 PPp]P^ 


P n 1 p 1 


17 7 7 7 7 


f '■ 


Pi 


-^ 1 . 


P P R P P P P + P ] 


p p 1 p p 


+ 1 , P P R G' ■ 


■M> H + ' : 1 


1 f.^ ry n -] p 


r-' r? p or p 


1 7 7 7 7 7 


r? 


P' 


+ 1 . 


f^ p P R p P P + P 1 


PRp/!6 


+ b.? P P R' 1 


-pr.-+ P 1 


1 PPr- \ I, 


P: P P 3 7 


1 7 7 7 7 7 


p 


P 


+ 1 . 


0PRPPPF+P] 








] P P P 1 f-, 


(?• r> p p (^ 


I 7 7 7 7 7 


■'/'; 


P 


+ 5. 


Ppr:>nnPP + Pl 


p P R 1 7 


PPPP 1 R 




1 f- f"; '"■ C> ';■ 


P ^^' ^;' 1 P 


r:'r"'^r"pr.^ 


r-i 


p. 


+ F.. 


P P P P P P p + P 1 


[■' P P ^- 1 


P; P <"■ P f' '"' 






o 



*^l^ GRI Computer Corporation 

320 NEEDHAM STREET, NEWTON,, MASSACHUSETTS 02164 

TEL: (617) 969^0800 



